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IDENTIFICATION 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 

A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

ot tata FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN 1HIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SI 


LY FOR I 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
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SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 


2.0 
a 


2.2 


2.3 


3.0 


4.0 


SEQ 0003 


ABSTRACT 


THE DIAGNOSTIC IS USED TO TEST RP04/5/6 DEVICE CONTROL LOGIC 
CONNECTED TO EITHER AN RH117 OR RH70 DISK DRIVE CONTROLLER 


THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RJPO4/5/6 SUBSYSTEM. 
IT DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI. 
IT REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR 

BE APPROPIATELY TERMINATED. IF THE DISK IS POWERED UP, IT 

IS REQUIRED TO GET THE DISK TO THE ‘HEADS UNLOADED*’ POSITION. 
AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC 

IT CAN BE ASSERTED THAT, ‘THAT PART OF THE DCL THAT HANDLES 
DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY''. THIS 
IMPLIES THAT, THE PART OF THE LOGIC WHICH HANDLES MECHANICAL 
COMMANDS OR ITS ASSOCIATED LOGIC IS NOT TESTED IN THIS 
DIAGNOSTIC. ALL DATA COMMANDS USE THE MAINTENANCE REGISTER 
IN THE WRAPAROUND MODE. 


THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER 

WHEN IT IS USED ON AN RWP04/5/6 SYSTEM TO TEST arte B ae DRIVES 
CONNECTED TO THAT TYPE OF CONTROLLER. IT IS ASSUMED THAT THE 

RH70 SPECIFIC CONTROLLER DIAGNOSTIC HAVE BEEN SUCCESSFULLY 

RUN TO COMPLETION BEFORE THIS DIAGNOSTIC IS RUN. 


REQUIREMENTS 

EQUIPMENT 

PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4/5/6 DISK SYSTEM. 
THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER, 
AND DISK CONTROL LOGIC (DCL), THE CABLE FROM THE DCL CAN BE 
CONNECTED TO THE MDLI, BUT IF NOT THAT CABLE MUST BE PROPERLY 
TERMINATED. 

STORAGE 

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 

PRELIMINARY PROGRAMS 

THIS CAN BE THE FIRST PROGRAM RUN ON AN RJPO04/5/6 SYSTEM BUT THE 
CONTROLLER DIAGNOSTICS MUST BE RUN FIRST IN THE CASE OF AN 
RWP04/5/6 SYSTEM. 

LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 

STARTING PROCEDURE 

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRON PAEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF THE OPERATOR SO DESIR 


ES. SE 
PARAGRAPH 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
OPERATION. 
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4.1 


4.2 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 204---TO SELECT NON-DEFAULT ADDRESSES 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RP04/5/6S ON THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE ‘END PASS'' IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


204 RESTART 
SAME AS START 200 WITH THE FOLLOWING EXCEPTION: THE 
PROGRAM WILL INTERROGATE THE OPERATOR FOR A NON-S 


PROGRAM EXECUTION FROM ADDRESS 210), THE PROCESSOR MAY 

BE HALTED AND RESTARTED FROM ADDRESS 210. THE NEW 
PARAMETERS WILL NOT BE CHANGED UNLESS THE PROGRAM IS AGAIN 
RESTARTED FROM ADDRESS 204. IF ALL UNITS ARE TO BE CHECKED, 
THE PROCESSOR NEED NOT BE TOUCHED. THE PROGRAM WILL 

arta fs RESTART AT 200 AFTER RECEIVING THE NEW DEVICE 


210 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM. 
PROGRAM AND/OR OPERATOR ACTION 

LOAD THE PROGRAM INTO MEMORY. 

SET STARTING ADDRESS ON THE SWITCH REGISTER 

PRESS "LOAD ADDRESS"’. 


SET "OPERATIONAL SWITCH SETTINGS'* (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


PRESS ''START"’. 
FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 


ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘END 
PASS'' IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 


SEQ 0005 
SEQ 0004 
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ah gates IF THE PROGRAM IS NOT RUN UNDER AN ‘‘ACT=-11"' 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE ‘END PASS'' IS PRINTED. THE SECOND 

AND SUBSEQUENT PASSES DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I. E. 
AN 11/34) IT WILL DETERMINE THAT A HARDWARE SWTICH REGISTER 
IS NOT PRESENT, AND WILL USE A ‘‘SOFTWARE’’ SWITCH REGISTER. 
THE SETTINGS OF THE ‘‘SOFTWARE'’ SWITCHES ARE CONTROLLED 
THROUGAH A eS ROUTINE WHICH IS CALLED BY TYPING ‘. 
"CONTROL G'. THE PROGRAM WILL RECOGNIZE A ‘CONTROL G* AT ANY 
TIME EXCEPT WHEN IT IS AT A HIGHER PRIORITY PROCESSIHG A ABest. 
INTERRUPT. THE ‘‘SOFTWARE’’ SWITCH VALUEA ARE ENTERED AS AN 
ort —— IN RESPONSE TO A PROMPT FROM THE SWITCH ENTRY 
NE: 


*SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. ‘RUBOUT" AND ‘CONTROL U* FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘‘SOF TWARE'’ 
SWITCH REGISTER MAY ALSO BE USED. IF THE PROGRAM yes ALL 
16 SWITCHES IN THE ‘UP’ POSITION WHEN IT IS STARTED, ALL 
SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘OPERATIONAL 
ood SETTINGS'* HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 


SWITCH 15 - HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
""CONTINUE’’ WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN. 


SWITCH 14 = LOOP ON TEST 

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH IS SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 
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SWITCH 13 - INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 
CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘'STOP DRIVE X 
WILL CONTINUE. AT THE Bia? OF PASS ‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X'’ WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 = RH70 CONTROFLLER SELECT 

THIS SWICH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70 

CONTROLLER. IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
ARE CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 

WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 

antl hey EACH TEST FOUR TIMES BUT WILL DO EACH TEST 
LY. 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE ‘BELL'’ OR "‘ALARM’’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED "‘SCOPE’’ STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO 

THAT “‘SCOPE’* STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 8 - LOOP ON TEST IN SWR <7:0> 

THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 
0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 
7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 
WITH SWITCH 8 SET AND SWITCH 5 SET THE PROGRAM WILL LOOP 


SEQ 0007 
SEQ 





CZR 
CZR 


H 1 
CZRJGCO,RPO4/5/6 DSKLS ere MACY11 30A(1052) 27=-JUL-78 12:41 PAGE 9 


C2RIGC.P11 


26-JUL-78 


10:1 


ON TEST 10. HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE 7ESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
QO THRU 7 HAVE THE MEAING ITS NAME INDICATES. 

FOR EXAMPLE SWITCH 7 IS ‘‘STOP FURTHER COMPARES: THAT IS 
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH 

IS ‘ECC TEST-COMPARE END RESULT ONLY’. THAT IS IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SwO8 IS LOW. 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS ga 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 fey T SET 


2 

E IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 
A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - ECC TEST-COMPARE END RESULTS ONLY IF SWO8 IS LOW 
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. SWITCH 8 IS NOT SET 

AND THIS SWITCH IS SET THEN ON ECC TESTS (TEST 120 THRU 
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND 
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE 
ONLY AT THE END OF ALL THE CLOCKS. 


SUB-ROUTINE ABSTRACTS 
SEE SECTION 9 *’SUBROUTINES** 


SEQ 0008 
SEQ 0007 
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ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 

THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RP04/5 76 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


*FATAL® ERRORS 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
A TEST SEQUENCE - THIS 


L IN 
ADDITION THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 


IT IS SUGGESTED THAT IF THIS HAPPENS THE OPERATOR LOAD 

ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FAILURE CONTINUES TO OCCUR, 

LOOK IN THE TEST LISTING FOR THE ‘HALT’ INSTRUCTION AND REPLACE 
IT PLUS THE TWO WORDS ("TYPE ,CPHALT’') ABOVE WITH ‘NOP’S. 

WITH TTY ERROR PRINTOUTS INHIBITED A SCOPE LOOP CAN BE 
INITIATED FOR THE TEST IN QUESTION. 


IT IS ALSO POSSIBLE TO CONTINUE FROM THE HALT 
POINT, BUT IT IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL 
EXHIBIT THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


IF THERE IS A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE 
THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B 
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE. IF THERE 
IS NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDLI MUST BE PROPERLY TERMINATED. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
IT MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THE REQUIREMENT FOR IT TO BE SET WHEN USING AN 
RH70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE 
SOFTWARE SWITCH REGISTER FEATURE WHILE RUNNING ON AN RH/70. 
THIS IS BECAUSE THE ROUTINE WHICH GETS ‘'SOFTWARE’’ SWTICH 
SETTINGS IS NOT OPERABLE WHEN IN CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL he 30 SECONDS PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 1 MINUTE. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 


SEQ 0009 
SEQ 0008 


mel ed ed ed ed ot ot td ot I ot ot I 
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8.3 OPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING USAGE OF THIS TECHNIQUE, HIT “C ANY 
TIME WHILE THE PROGRAM IS RUNNING. ON HITTING AN ERROR IF THE 
LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK = USUALLY 
BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING. 
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
oom THAT ITEM WILL BE FOUND. 


;*DRIVE MUST BE LOCKED ON PORT A OR PORT B 


;* INTERNAL PROGRAM MACROS BEGIN HERE 


FERRER EEE EK EEE EERE EK KEREREKEK 


: NOTE: MACROS BEGINNING WITH ‘'.$'* ARE SUPPLIED BY AN 

;@ EXTERNAL SYSMAC.SML SYSTEM MACRO PACKAGE WHICH 
MUST BE MADE AVAILABLE TO THE SOURCE PROGRAM 
AT ASSEMBLY TIME. 


SS 





K 1 
CZRJGCO,RP04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL-78 12:41 PAGE 12 SEQ 0011 
CZRJGC.P11 26-JUL=78 10:10 BASIC DEFINITIONS SEQ 0010 


502 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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000174 
000176 


000046 
000052 
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DISPREG: .WORD 0 3-SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 3;SOFTWARE SWITCH REGISTER 


SENDAD 321)SET LOC.46 TO ADDRESS OF $SENDAD IN .$EOP 
-WORD 20000 332)SET LOC.52 TO 20000 


STARTING ADDRESS 
JMP @4BEGIN sNORMAL START 


: JMP @4BASE CH sMODIFY ADDRESSES 
JMP @ABEGIN2 SELECT DRIVE START 


3**STARTING ADDRESS 200 FOR NORMAL STARTS 
7**THIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME 


z**STARTING ADDRESS 204 FOR PARAMETER MODIFICATION, 
7**RESTART AUTOMATICALLY FROM 200 AFTER PARAMETER MODIFICATION. 


7**STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


SEQ 0012 
SEQ 0011 





ao 
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525 001110 -=1110 
526 


1, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1, 
1, 
1, 
1, 
1, 
1 
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3;CONTAINS PASS COUNT 

ss THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 

:3 ITEM CONTROL BYTE 

7;CONTAINS MAX. ERRORS PER TEST 

$3 PC OF LAST ERROR a 
ADDRESS OF ‘GOOD’ DAT 
ADDRESS ae *BAD' DATA. 
*GOOD* DAT. 


a SS 
— 2-3 oe 
AIA AIAIAIAIA IA 


NSERRVSARARNSR 


; CONTAINS * DATA 
: RESERVED--NOT TO BE USED 


3 AUTOMATIC MODE INDICATOR 
7. INTERRUPT MODE INDICATOR 


7sADDRESS OF SWITCH REGISTER 
ity ns OF aa REGISTER 
TTY KBD STATUS 

7:TTY KBD BUFFER 
:eTTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. con Sir 
CONTAINS NULL CHARACTER FOR FILLS 
z:CONTAINS # OF FILLER CHARACTERS REQUIRED 
no FILL CHARS. AFTER A ‘LINE FEED"’ 

3" "TERMINAL ne FLAG (BIT<07>=0=YES) 

I HE ADDRESS FROM 


leleleleleleleleler lelelelelolela) a) 


97° 
~ 
5 


2 


0 
2 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


: USER DEF INED 
7 7MAX. NUMBER OF ITERATIONS 
: ;ESCAPE ON ERROR ADDRESS 
<207><377><377> ; 3 BELL 


<is> 7-CARRIAGE RETURN 
<12> 3-LINE FEED 
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ao 
MN 
nn 


;*1TEM1 
057460 EMi apap DATA IN READING OR WRITING HARDWARE REGISTER 


062733 : 

;REG. ADDR. 

;GOOD DATA 

;RECEIVED DATA 
067312 7 SERRPC ,REGADR, $GDDAT , SBDDAT 
070030 3:0,0,0,0,0 


> *1TEM2 
057543 E ;ERROR ON DATA COMMAND 


066070 sre 

PC OF JSR 

TEST NO 

WORD NO. 

;GOOD DATA 

CONTENTS OF RHCS1 

CONTENTS OF RHDS1 

CONTENTS OF RHER1 

067672 i SERRPC ,PCUSR,$TSTNM, ERWORD , SGDDAT ,CS1,DS1,ER1 
070200 :0,0,0,1,0,0,0,0 


a ee ee ee ee ee ee ee oe ee ee ST 


057543 ;ERROR ON DATA COMMAND 


065645 PC 

sPC OF JSR 

: TEST NO 

;WORD NO. 

;GOOD DATA 

;BAD DATA 
sCONTENTS OF RHCS1 
;CONTENTS OF RHDS1 
;CONTENTS OF RHER1 


067646 7 SERRPC ,PCUSR,$TSTNM,ERWORD ,$GDDAT , $8DDAT .CS1,DS1,ER1 
070167 :0,0,0,1.0,0,0,0.0, 


057543 E ;ERROR ON DATA COMMAND 


065442 PC 

zs TEST NO 
;WORD NO. 
;GOOD DATA 
;BAD DATA 
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CZRJGC.+ 11 
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067624 
070157 


000000 
000000 
067624 
070157 


057572 
065645 


067646 
070167 
057572 


063056 


067340 
070041 


057631 
063201 


10:1 


C 
MACY11 30A(1052) 27=JUL-78 12:41 


ERROR POINTER TABLE 


> * ITEMS 
0 


> *1TEM7 
E 


;*1TEM10 
0 


0 
DT3 
DF3 


7*1TEM11 
EM11 
DH11 


2 
PAGE 17 


CONTENTS OF RHCS1 
CONTENTS OF RHDS1 
CONTENTS OF RHER1 


7 SERRPC ,$TSTNM, ERWORD , $GDDAT , SBDDAT ,CS1,DS1,ER1 


. 
. os e o o e o ’ 


7 
° 


*$ERRPC,$TSTNM, ERWORD, $GDDAT, $BDDAT,CS1,DS1,ER1 
:0,0,1,0,0,0,0,0, 


ERROR ON WRITE HEADER AND DATA 


GOOD DATA 
BAD DATA 
CONTENTS OF RHCS1 
:CONTENTS OF RHDS1 
[CONTENTS OF RHER1 


7 SERRPC ,PCJSR,$TSTNM, ERWORD , SGDDAT , $BDDAT,CS1,DS1.ER1 
30,0,0,1,0,0,0,0.0, 


+ a ON WRITE HEADER AND DATA 
TEST NO 
;WORD NO. 

[GOOD DATA 

;BAD DATA 

7 SERRPC ,STSTNM,ERWORD , SGDDAT , SBDDAT 


. 
o o e e o e 


~ 
o 


$ERRPC,$TSTNM, ERWORD , $GDDAT , SBDDAT 


° 
oe e e ’ e . 


+ > pales OR DRIVE STATUS 
TEST NO 


SEQ 0016 
SEQ 0015 


ele) 
NN 
po *] 


meme ek ee ed ed ed ed ed od od od ot ot I td I Ht I I I I SS 
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CZRJGC.P11 


26-JUL-78 10:10 


067354 
070046 


057631 
062733 


067312 
070030 
000000 
000000 
067312 
070030 


057404 
063361 


067374 
079055 


057704 
063561 


067416 
070065 


057755 
063612 


MACY11 30A(1052) 27=JUL-78 
ERROR POINTER TABLE 


s*I1TEM12 


DH1 


DT1 
DF1 


7 *ITEM13 
0 
0 
DT1 
DF1 


sx ITEMi4 
EM14 
DH14 


DT14 
DF14 


7 *ITEMi5 
EM15 


s*1TEM16 
EM16 
DH16 


2 
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FAILING REG. ADDR 


RHER1 
“SERRPC, $TSTNM, SBDADR,CS1,CS2,DS1,ER1 
:0,0,0,0,0,0 


WRONG DATA FROM SILO 


SRECEIVED DAT 
SERRPC, REGADR, S$GDDAT , SBDDAT 


:0,0,0, 


;SERRPC ,TSTNM,REGADR,$GDDAT , SBDDAT 


—— FAILED 


src 

FAILING REG. ADDR 

: CONTENTS OF FAILING REG. 

CONTENTS OF RHCS1 

CONTENTS OF RHCS2 

CONTENTS OF mtd 

[CONTENTS OF RHER1 

7SERRPC , SBDADR, SBDDAT,CS1,CS2,DS1,ER1 
:0,0,0,0,0,0,0 


SPECIFIED REG. NON EXISTANT SO ABORT 
-* ae 


*PC 
“ADDR. OF REG 
*$ERRPC, TEMP1 


e e 


;WAIT LOOP FAILED 
PC 


REG. CONT. 


SEQ 0017 
SEQ 0016 


an 
NSN 
zDD 


3 a et a a PB BD BD DS TO OS SO 





Oo 
Ns 
2) 


. ¢€ 
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001402 067426 DT16 SERRPC ,$TMP3,$TMP1,$TMPO,$BDDAT 
001404 070070 DF 16 :0,0,0,0 


oO 
Lan] 
Zz 


3*1TEM17 
057776 EM17 WRITE CHECK FAILING 
063755 DH17 PC 
TEST NO 


¢ ONTENTS OF RHBA 


CONTENTS OF RHCS1 

:CONTENTS OF RHCS2 
067444 SERRPC ,$TSTNM, $8A,DB,WC,CS1,CS2 
070075 :0,0,0,0,0,0,0 


3*1TEM20 
060022 EM20 REGISTER FAILING 
064140 DH20 mC 


: NO 

CONTENTS OF RHER1 

CONTENTS OF RHER2 

CONTENTS OF RHERS 

CONTENTS OF me 

[CONTENTS OF RHDS1 
067464 DT20 TSERRPC,TSTNM ER1,ER2,ER3,AS,DS1 
070104 DF 20 :0,0,0,0,0,0,0 


:*ITEM21 
060043 EM21 ; INTERRUPT FAILING 
064323 ;PC 


DH21 : 
; TEST NO 
CONTENTS OF RHCS1 
;CONTENTS OF RHAS 
CONTENTS OF RHDS1 
067504 DT21 7 SERRPC,TSTNM,CS1,AS,DS1 
070113 DF 21 :0,0.0,0.0 


— So os ss I I BO OS SS 


3 *ITEM22 
060065 EM22 ERROR IN DRIVE PRESENT ~- 
;LOOKING AT RHAS AND ay tails 
DRIVES PRESENT DO NOT AGR 
TE: ON DUAL PORT SYSTEM. 
“DRIVE ON OTHER PORT WILL NOT GIVE NED 
: HENCE THERE WILL BE A MISSMATCH 


:TEST NO 

ZRHAS UNIT (RHER1 BITS SET) 
SRHCS2 UNIT ("NED’ BIT TEST) 
067520 *SERRPC, TSTNM 

070120 :0.0 


064443 





:-< 
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s*1TEM23 
:NO LONGER USED DUE TO SPECIAL ‘NED' 
; TEST TABLE TYPE OUT ROUTINE 


i * ITEM 24 
EM24 


;LOOK AHEAD REGISTER AT THE 
;BEGINNING OF A SECTOR IS IN 
; ERROR 


DH24 


GOOD RHLA 

SECTOR NO 

SECTOR CLOCK 
067526 DT24 7SERRPC ,DST ,SBDDAT,$TMP1,$TMP2, $TMP3 
070124 DF 24 :0,0,0,0,0 


7* ITEM 25 
060640 EM25 ;LOOK AHEAD REGISTER IS 
N ERROR 


064546 DH24 PC 

;RHDST 

;BAD RHLA 

;GOOD RHLA 

z;SECTOR NO 

;SECTOR CLOCK 
067526 *$ERRPC, DST, S$BDDAT, $TMP1,$TMP2,$TMP3 
070124 DF 24 70,0,0,0,0 


057631 ° —EM1 : CONTROLLER OR DRIVE STATUS 


064731 “PC 
PC OF JSR 

FAILING REGISTER ADDRESS 
ZCONTENTS OF RHCS1 
CONTENTS OF RHCS2 
CONTENTS OF RHDS1 
CONTENTS OF RHER1 


067546 7 SERRPC ,PCJSR,$BDADR,CS1,CS2,DS1,ER1 
070133 :0,0,0,0,0.0, 


057460 EM1 ERROR IN READING OR WRITING HARDWARE REGISTER 


065134 PC 
“PC OF JSR 


TEST NUMBER 
:FAILING REGISTER 
[GOOD DATA 
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RECEIVED DATA 


067570 DT27 7 SERRPC ,PCUSR, TSTNM,REGADR, $GDDAT , SBDDAT 
070143 DF 27 :0,0,0,0,0,0 


3 * 1 TEM30 
EM30 


;CURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 
DH30 zPC 
sPC OF JSR 
;REGISTER ADDRESS 
:GOOD DATA 
;BAD DATA 


067606 7 SERRPC ,PCUSR,REGADR,$GDDAT , SBDDAT 
070151 30,0,0,0,0 


7*1TEM31 
001526 061021 EM31 ECC GENERATED IS INCORRECT 
EVERY WORD IN THIS SECTOR IS GIVEN IN ‘DATA USED"’ 


001530 066273 3PC 

; TEST NUMBER 
:GOOD ECC1 
GOOD EC2C 
WRITTEN ECC1 
WRITTEN ECC2 
DATA USED 


067714 D134 ;SERRPC,TSTNM,GECC1,GECC2,WECC1 ,WECC2,DISK 
070210 DF 34 :0,0,0,0,0,0,0 


7 *1TEM32 
061144 EM32 :O0N READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
sECC REGISTER OR RHER1 IS IN ERROR 
ONLY LOWER 11 BITS OF PATTERN REGISTER 
> CAN BE READ 
:THIS SHUOLD MATCH LOWER 11 BITS OF ECC1 


:GOOD ECC2 
PATTERN REGISTER 
;RHER1 
067734 7 SERRPC,TSTNM,GECC1,GECC2,EC2.ER1 


070217 30,0,0,0.0,0 





CZRJGCO,RPO4/5/6 DSKLS gin MACY11 30A(1052) 27=JUL-78 
CZRJGC.P11 26-JUL-78 10:10 ERROR POINTER TABLE 


7 *1TEM33 
001546 061433 EM33 
001550 066661 DH36 


067756 D136 

070227 DF 36 

7 *1TEM34 
EM34 


061505 


067756 DT36 
070227 DF 36 


7 *1]TEM35 
EM35 


067774 
070235 


H 
12:41 


2 
PAGE 22 SEQ 0021 


SEQ 0020 


-— COUNT BIT NOT HIGH AFTER 38859 CLOCKS 


3PC OF JSR 
Aig NUMBER 


‘POSITION REG. 
[PATTERN REGISTER 


7 SERRPC,PCUSR,TSTNM,MR,EC1,EC2 
30,0,0,0,0,0 


;ZERO DETECT BIT NOT HIGH WHEN THE 
732 BIT ECC REGISTER HAS ITS 21 BITS 
:OF ZEROS 

ERROR PRINTOUT WILL CONTINUE TILL 
SS DETECT BIT IS HIGH 


a: OF JSR 


TEST NUMBER 
SRHMR 


*POSITION REG. 
“PATTERN REGISTER 


: SERRPC,PCJSR,TSTNM,MR,EC1,EC2 
70,0,0,0,0.,0 


;POSITION REGISTER OR 11 BITS OF 

PATTERN REGISTER INCORRECT 

;LOWER 11 BITS OF PATTERN REGISTER 

SHOULD MATCH LOWER 11 BITS OF GOOD ECC1 

DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 


: G00 
;ECC PATTERN 


DATA ENVELOPE 


:N-CODE ZEROS 
7SERRPC,TSTNM,EC1,POSITI,GECC1.GECC2,EC2,DATENV,ZCODE 
:0,0,0,0,0.0,0,0.0 


4 
UAL 


3 SS ot I I I I 


mimi miPi mi RI ML RL RIAL ML AL AL AL AL ALA AL AL AL AL ALALALALA 
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7 *1TEM36 
001576 062077 EM36 ;0N A READ COMMAND WITH NON CORRECTABLE 
sERROR INSERTED DCK AND ECH SHOULD BE SET 
001600 066456 DH35 PC 


:TEST NUMBER 

;GOOD ECC] 

GOOD ECC2 
PATTERN REGISTER 
POSITION REGISTER 
RHER1 


067734 DT35 7 SERRPC, TSTNM,GECC1,GECC2,EC2,EC1,ER1 
070217 DF35 :0,0,0,0,0,0,0 


7 *1TEM37 
062210 EM37 ;PGE ERROR 
063201 DH11 =P 


: TEST NO 

:FAILING REG. ADDR 

ZCONTENTS OF RHCS1 

=CONTENTS OF RHCS2 

[CONTENTS OF RHDS1 

*CONTENTS OF RHER1 
067354 * $ERRPC ,$TSTNM, $8DADR,CS1,CS2,DS1,ER1 
070046 :0,0,0,0,0,0 


; 1 TEM4O 

062345 EMGO :;RHWC DID NOT = 0 AFTER A READ OR 
ZWRITE HEADER AND DATA 

067236 DH40 +. 


— wt BH I BH 8 BV DD OV OI 
PRR RURAL ALA ALAA UU aa AAU AA LALA AWA WA UT II 


TEST NO 

CONTENTS OF RHWC 
070020 DT40 SERRPC,TSTNM, SB8DDAT 
070246 DF40 :0,0,0 


;*RH11/RH70 REGISTERS 


;*WORD COUNT REGISTER (RHWC) 
;*EACH BIT IS CALLED BY BIT NUMBER 


8 


;*BUS ADDRESS REGISTER (RHBA) 
;*EACH BIT IS CALLED BY BIT NUMBER 


ed ed ad od od 
ooooo°o°oo 
ed aed ad od ad ed ed ed 
NOUSWM © 


;*CONTROL AND STATUS REGISTER 2 (RHCS2) 


US1= 1 ;UNIT SELECT (BIT #0) 
US2= 2 UNIT SELECT (BIT #1) 
US4= 4 [UNIT SELECT (BIT #2) 
BAI= 10 [BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
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1023 000020 PAT= 20 z INVERT PARITY ON MASS BUS TO EVEN (BIT #4) 
1024 000040 CLR= 40 [CLEAR (BIT #5) 
1025 000100 IR= 100 7 INPUT READY (BIT #6) 16 
1026 000200 = 200 SOUTPUT READY (BIT #7) 16 
1027 000400 MPE= 400 [MASS BUS PARITY ERROR (BIT #8) 16 
1028 001000 MXF = 1000 MISSED TRANSFER ERROR (BIT #9) 16 
1029 002000 PGE= 2000 ;PROGRAM ERROR (BIT #10) 16 
1030 004000 NEM= 4000 [NON EXISTANT MEMORY (BIT #11) 16 
1031 010000 NED= 10000 ZNON EXISTANT DRIVE (BIT #12) 16 
1032 020000 UPE= 20000 [UNIBUS PARITY ERROR (BIT #13) 16 
1033 040000 WCE= 40000 [WRITE CHECK ERROR (BIT #14) 16 
a 100000 DLT= 100000 zDATA LATE (BIT #15) % 
1036 :*DATA BUFFER REGISTER (RHDB) 16 
1037 7*EACH BIT IS CALLED BY BIT NUMBER 16 
1038 16 
1039 16 
1040 16 
1041 ;*RPO4 REGISTERS 16 
1042 16 
1043 
1044 
a5 4 :*CONTROL AND STATUS 1 REGISTER. (#00) 
1047 000001 GO= 1 3;GO (BIT #0) 
1048 000100 IE= 100 ; INTERRUPT ENABLE (BIT #6) 
1049 000200 RDY= 200 SREADY (BIT #7) 
1050 000400 Ai6= 400 HIGH ORDER UNIBUS BITS (BIT #8) 
1051 001000 Al7= 1000 HIGH ORDER UNIBUS BITS (BIT #9) 
1052 002000 PSEL= 2000 SPORT SELECT (BIT #10) 
1053 004000 DVA= 4000 DEVICE AVAILABLE (BIT #11) 
1054 020000 MCPE= 20000 SMASSBUSS PARITY ERROR (BIT #13) 
1055 040000 TRE= 40000 ; TRANSFER ERROR (BIT #14) 
H 5 100000 Sc= 100000 [SPECIAL CONDITION (BIT #15) 
os *STATUS REGISTER (RHDS1) (#01) 
1060 000001 DF 5= 1 DRIVE FORWAPS 5°'/SEC. (BIT #0) 
1061 DFF20= 2 DRIVE FORWARD 20°'/SEC. (BIT #1) 
1062 000004 DIGB= 4 DRIVE TO INNER GAVRD BAND (BIT #2) 
1063 000010 GRV= 10 GO REVERSE (BIT #3) 
1064 000020 DL64= 20 “DIFFERENCE LESS THAN 64 (BIT #4) 
1065 0 DE1= 40 ;DIFFERENCE EQUALS 1 (BIT #5) 
1066 000100 VV= 100 7V ID (BIT #6) 
1067 000200 DRY= 00 DRIVE READY (BIT #7) 
1068 000400 DPR= 400 DRIVE PRESENT (BIT #8) 
1069 001000 PROG= 1000 ;PROGRAMABLE (BIT #9) 
1070 002000 LST= 2000 zLAST SECTOR TRANSFERRED (BIT #10) 
1071 004000 WRL= 4000 [WRITE LOCK (BIT #11) 
1072 010000 MOL = 10000 :MEDIUM ON-LINE (BIT #12) 
1073 020000 PIP= 20000 POSITIONING OPERATION IN PROGRESS (BIT #13) 
1074 040000 ERR= 40000 ;COMPOSIT ERROR. (BIT #14) 
ire 100000 ATA= 100000 SATTENTION ACTIVE (BIT #15) 
1077 ;*ERROR REGISTER #01 (RHER1) (402) 


1078 000001 ILF= 1 ILLEGAL FUNCTION (BIT #0) 
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ILLEGAL REGISTER (BIT #1) 
ZREGISTER MODIFICATION REFUSED (BIT #2) 
zPARITY ERROR (BIT #3) 


40000 DRIVE UNSAFE (BIT #14) 
100000 3DATA CHECK ERROR (BIT 15) 


7 *MAINTAINABILITY REGISTER (RHMR) (403) 


zDIAGINOSTIC MODE (BIT #0) 
sMAINTAINABILITY CLOCK (BIT #1) 
;MAINTAINABILITY INDEX (BIT #2) 
ZMAINTAINABILITY SECTOR CLOCK (BIT #3) 
;MAINTAINABILITY READ (BIT #4) 
;MAINTAINABILITY WRITE (BIT #5) 

DATA ENVELOPE (BIT #7) 

;ZERO DETECT (BIT #8) 

ZMAINTAINABILITY SYNC DETECTED (BIT #9) 


7 *ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (404) 


DEVICE O (BIT #0) 
#1) 


ooo 


0 
1 
2 
3 
4 
5 
6 
7 


DEVICE 


z*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
3*EACH BIT IS CALLED BY BIT NUMBER 


RUNSSVSVRGRAVLSSHVRARASLSSRIKGRALSLS 


;*DRIVE TYPE REGISTER (RHDT) (#06) 
;*EACH BIT IS CALLED BY BIT NUMBER 


1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


= 
imei RII RII INI NI SIRO 


_ S22 I DO = 
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—_— 
_ 
W 
Ww 
aa 
~—enN 
— DD 
NN Ge 


z*LOOK-AHEAD REGISTER <RHLA) (407) 


EXTENSION 1 (BIT #0) 
EXTENSION 2 (BIT #1) 
ZEXTENSION 3 (BIT #2) 
ZEXTENSION 4 (BIT #3) 
EXTENSION 5 (BIT #4) 
sEXTENSION 6 (BIT #5) 


Se 
NN 


(BIT #6) 


a ee ee ee ee 


SECTOR COUNT FIELD 

;TRACK FIELD 1 (BIT 

TRACK FIELD 2 (BIT 

3 TRACK FIELD 3 (BIT 

7 TRACK FIELD 4 (BIT 
100000 ;TRACK FIELD 5 (BIT #15) 


3*RPO4 ERROR REGISTER #2 (RHER2) (410) 
WwCU= zWRITE CURRENT UNSAFE (BIT #0) 


;CURRENT SINK FAILURE (BIT #1) 
;WRITE SELECT UNSAFE (BIT #2) 


2a 
ek kk kk ak ak ts od dd td I 
WAVY Se ee Peo S48 


SMULTIPLE HEAD SELECT (BIT #9) 
NO HEAD SELECTION (BIT #10) 
7 INDEX ERROR (BIT #11) 


20000 UN: 
100000 TACUNSAFE (BIT #15) 
:*RPO5/6 ERROR REGISTER #2 (RHER2) (410) 
WRITE CURENT UNSAFE 


[CURRENT SWITCH UNSAFE 
;READ AND WRITE 

TRANSITIONS DETECTOR FAILURE 
; TRANSITIONS UN UNSAFE 


ABNORMAL S 

sWRITE READY UNSAFE 
SMULTIPLE HEAD SELECT 
NO HEAD SELECTION 

; INDEX ERROR 

PLO UNSAFE 


:*OFFSET REGISTER (RHOF) (#11) 


9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 





oO 
MN 
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119 


—_ 


sOFFSET 25 MICRO INCHES (BIT #0) 
ZOFFSET 50 MICRO INCHES (BIT #1) 
; 100 MICRO INCHES (BIT #2) 
200 MICRO INCHES (BIT #3) 
400 MICRO INCHES (BIT #4) 
OFFSET 800 MICRO INCHES (BIT #5) 


sOFFSET NEGATIVE (REVERSE) (BIT #7) 
HEADER COMPARE INHIBIT (BIT #10) 
zERROR CORRECTION CODE INHIBIT (BIT #11) 
zFORMAT BIT (BIT #12 


= 

a 
00 
Wr 


BELESRE 


Salearaccs 


:*DESIRED CYLINDER ADDRESS (RHCA) (#12) 
;*EACH BIT IS CALLED BY BIT NUMBER. 


z*CURRENT CYLINDER ADDRESS (RHCC) (#13) 
;*EACH BIT IS CALLED BY BIT NUMBER 


SCOWWONAUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RRRNAARVYNIN 


nwo 


7*SERIAL NUMBER REGISTER (RHSN) (414) 
;*EACH IS CALLED BY BIT NUMBER 


7*ERROR REGISTER #03 (RHER3) (#15) 


;PACK SPEED UNSAFE (BIT #0) 
VELOCITY UNSAFE (BIT #1) 
zANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
DISK PACK ROTATION ERROR (BIT #4) 
zAC LOW (BIT #5) 
DC LOW (BIT #6) 
4 SEEK INCOMPLETE (BIT #14) 
100000 3OFF CYLINDER (BIT #15) 


z*ECC POSITION REGISTER (RHEC1) (#16) 
;*EACH BIT IS CALLED BY BIT NUMBER 


—s 
aa ee ee ee ete me Re IRR IRI RII NII III IRN SS NN SNS Sd 


3 BB Ph 3 9 3 FA FFP POO 
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z*ECC PATTERN REGISTER (RHEC2) (417) 
;*EACH BIT IS CALLED BY BIT NUMBER 


— 
On fn fn On On 0D Mn OM 0D MD On MD 00 On On OD 0D 00 On No GO 00 O0 OO OO CO Cd O90 CO CO CO CD CO CO CO INI SISSY 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
j 
: 
; 
1 
; 
1 
: 
| 
1 
1 
1 
1 
: 
1 
; 
j 
; 
1 
1 
1 
} 
1 
1 
: 
1 
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ao 
io 
> so] 


-SBTTL REGISTER ADDRESSES 


;*RPO4 VECTOR ADDRESS 
RPVEC: 254 ;RPO4 VECTOR ADDRESS 


7*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER 
[*NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT 

; IF THE ‘‘CHANGE BASE ADDRESS'’ ROUTINE IS USED. 

;* THIS ROUTINE STARTS AT LOCATION TAGED 'BASECH'’ 


176722 RHDB: 176722 ;DATA BUFFER SEE NOTE ABOVE 
176702 RHWC : ;WORD COUNT SEE NOTE ABOVE 
176704 RHBA : BUS ADDRESS SEE NOTE ABOVE 
174710 RHCS2: 156710 CONTROL AND STATUS 2 SEE NOTE ABOVE 


me ee ee ed ed eed et od 


= *RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE hon LOGIC (DCL) 
;*NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFERENT 

IF THE "'CHANGE BASE ADDRESS ROUTINE IS USED 

THIS ROUTINE STARTS AT LOCATION TAGED ‘BASECH'’ 


176700 : 176700 ;CONTROL AND STATUS 1 SEE NOTE ABOVE 
: SERROR #1 SEE NOTE ABOVE 
[DESIRED SECTOR/TRACK ADDRESS SEE NOTE ABOVE 
sERROR #2 SEE NOTE ABOVE 
SOFFSET SEE NOTE ABOVE 
2 DESIRED CYLINDER ADDRESS SEE NOTE ABOVE 
OR SEE NOTE ABOVE 


“MAINTAINABILITY SEE NOTE ABOVE 
;DRIVE STATUS SEE NOTE ABOVE 
:DRIVE TYPE SEE . t ABOVE 


: ak D SEE NOTE ABOVE 
176736 : 176736 CURRENT CYLINDER ADDRESS SEE NOTE ABOVE 
z*ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 


176750 RHBAE: 176750 ;BUS ADDRESS EXTENSION REGISTER 
176752 RHCS3: 176752 CONTROL AND STATUS REGISTER #3 


SRSeES33 
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_ 3 — 


;*THE FOLLOWING an on ARE RESERVED FOR REGISTER SAVES 
: ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 
;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
:*FOR THE TIME JUST AFTER THE ‘ERROR’' ERROR COMMAND 


DATA BUFFER 
[WORD COUNT 
:BUS ADDRESS 
;CONTROL AND STATUS 2 


SECe | 


WWWWWWWWWWANWWWWA 
FWN—OVONAUSWN-OOON 
oooo 


et ed ed Ad ed od 


SeeROR # AND STATUS 1 
[DESIRED SECTOR/TRACK ADDRESS 
sER ROR #2 


FSET 
DESIRED CYLINDER ADDRESS 
RROR #3 


ZATTENTION SUMMARY 
SMAINTAINABILITY 
DRIVE STATUS 


gueeeeeeds 


ZECC PATTERN 
; LOOK~AHEAD 
SCURRENT CYLINDER ADDRESS 


1 
1 
Fi 
; 
; 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
7 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 


leleleleleleleleleleleleleolelelo) 


WIWWWWAWG 


FUSZSS 
Wh 
3 BB BP PB BB OB 3 BB BO OV SO 
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1335 
1336 
1337 
1338 
1339 
1340 
1341 


ry 
nm 


BAAAARAAAARES EEE 
BOYRARWV IS OWNRARW 


SESERESES 


WAW 
SNe 
NSS 


1 
1 
1 
; 
1 
; 
; 
; 
1 
1 
1 
1 
1 
; 
1 
1 
1 
: 
; 
4 
j 
: 
; 
; 
: 
: 
1 
; 
1 
1 
; 
} 
; 
; 
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;*FLAGS & INTERNAL PROGRAM CONTROL WORDS 


UNITS: .BLKW 
UNIT: .WORD 
NOUNIT: .WORD 
NUNIT: .WORD 


SELECT: .WORD 
UNITSI.: .WORD 


ERFLG$: 0 
SAVDT: 


SAVSN: 


PCJSR: 


ATTENT: 
TOTALAT: 


TMPILL: 
TSECC: 


TESDTE: 


TAGDTE : 


TSTNM: 
FIRST: 
RPO6: 
RH70: 


; TABLE OF gist PRESENT TO TEST 
[UNIT UNDER TEST 

;NUMBER OF UNITS PRESENT 

;USED TO KEEP TRACK OF UNIT UNDER TEST 
[USED TO DETERMINE IF THERE IS MORE 


; THAN ONE UNIT 
;ALL_ONES INDICATE UNIT TO BE SELECTED 
UNIT NO. SELECTED 


ERROR FLAG 

;SAVE DRIVE TYPE REGISTER 

FOR COMPARISON IN DRIVE CLEAR TEST 
;AND RH INIT TEST 

SAVE SERIAL NUMBER REGISTER 

FOR COMPARISON IN DRIVE CLEAR TEST 
zAND RH INIT TEST 

SAVE PC OF JSR WHICH GAVE THE ERROR 


ATTENTION BIT FOR PRESENT UNIT 
7; TATAL ATTENTION BITS 


; TEMPORARY ILLEGAL FUNCTION 
FLAG TO_SAY IF ECC TEST OR NOT 
WHEN =177777 IT IS AN ECC TEST 
WHEN =OIT IS NOT AN ECC TEST 
FLAG TO SAY_IF DRIVE TIMING ERROR OR NOT 
“ WHEN = 177777 IT IS A DTE TEST 
WHEN = 0 IT IS NOT A DTE TEST 


; TEMPORARY TAG USED IN DRIVE TIMING 
ERROR TEST 


; TEST NUMBER 
IF ZERO WILL TYPE HEADER 
7 IF 0 PROGRAM WILL TREAT DRIVE AS RPO4 


7 IF 1 PROGRAM IS RUNNING ON RH70 
:1F 0 PROGRAM IS ON AN RH11 


SEQ 0030 
SEQ 0029 
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CZRJGC.P11 26-JUL-78 10:10 REGISTER ADDRESSES SEQ 0030 
1382 
1383 
1384 :*FUNCTION EQUATES 
1386 :*TABLE OF FUNCTICNS FOR RHCS1, THEN ‘'GO’’ BIT HAS TO BE SET 
1388 002042 FUTABL 
1389 002042 000000 NOPERA: 0 ZNO OPERATION 
1390 002044 000002 UNLOAD: 2 sUNLOAD (STAND BY) 
1391 002046 000006 RECALI: 6 ;RECALIBRATE 
1392 002050 000010 DCLEAR: 10 :DRIVE CLEAR 
1393 2052 000012 RELEAS: 1c sRELEASE (DUAL-PORT OPERATION) 
1394 002054 000030 SERCH: 30 :SEARCH COMMAND 
1395 002056 000050 WRCHEK: 50 [WRITE CHECK DATA 
1396 002060 000052 WRCHDT: 52 sWRITE CHECK HEADER AND DATA 
1397 002062 000060 WRIDAT: 60 ‘WRITE DATA 
1398 002064 000062 WRIFOR: 62 ‘WRITE HEADER AND DATA (FORMAT) 
1399 002066 000070 READAT: 70 zREAD DATA 
1400 002070 000072 REFOR: 72 READ HEADER AND DATA 
1401 002072 000004 SEECOM: 4 7SEEK COMMAND 
1402 002074 000014 OFSETC: 14 SOFFSET COMMAND 1 
1403 002076 000016 RETCL: 16 sRETURNTO CENTERLINE 1 
1404 002100 000022 PKACK: 22 :PACK ACKNOWLEDGE 1 
1405 002102 000020 READIN: 20 READ IN 1 
Mer 002104 000000 ILLEGL: .WORD =COMPUTED ILLEGAL FUNCTION . 
1408 1 
1409 :*DATA BUFFERS FOR READ WRITE 1 
139 : 
1412 002110 000422 WRFROM: .BLKW 274. :WRITE FROM THIS BUFFER 
1613 003154 000422 REINTO: .BLKW 274. *READ INTO THIS BUFFER 
1415 
1416 
1417 :*TABLE FOR ATTENTION BITS 
1618 :*ATTENTION TABLE 


1420 004220 001 002 004 ATABLE: .BYTE 1,2,4,10,20,40,100,200 
1421 004223 010 020 040 
1422 004226 100 200 
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012737 


012637 


012737 


177777 
002002 


001100 
001140 


001000 
054220 
000340 
056436 
000340 
057206 


000340 
057276 
000340 


177777 


004446 
000176 


005326 
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REGISTER ADDRESSES 


002002 BEGINe: 
BEGIN: 


START: 


000020 
000022 


001 
001 
001 


64$: 
65$: 
66$: 


177776 
175124 


STARTA: 


. SBTTL 
-SBTTL 
- SBTTL 


3 
PAGE 33 


***DIAGNOSTIC CODE*** 


-SBTTL SETUP TESTS 


og 


#-1 ,AASELECT 
START 
@ASELECT 


#SCMTAG,R6 
(R6) + 


2 the oR6 use 


MSTACK, SP 


SELECT UNIT 
;DO0 NOT SELECT UNIT 
;NORMAL RUN 


73FIRST LOCATION TO BE CLEARED 
3;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
;;SETUP THE STACK POINTER 


#SSCOPE ,a#IOTVEC 2101 VECTOR FOR SCOPE ROUTINE 
#340 BAIOTVEC+2 ;:LEVEL 7 
ASERROR ,a#EMTVEC EMT. VECTOR FOR ERROR ROUTINE 
#340, aMEMTVEC+2 ;;LEVEL 7 


#STRAP , AA TRAPVEC 
#340, a#TRAPVEC+2; LEV 
EC ian VECTOR 


#SPWRDN, aAPWRV 


#340, a#PWRVEC+2 ; 
STIMES 


ADSWR 

*DISP. DISPLAY 
#~1 ,aSWR 

66$ 


65$ 
#65$, (SP) 


ASWREG , SWR 
#DISPREG, DISPLAY 
(SP) +, @#ERRVEC 


#0,PS 

ARPVECT ,aRPVEC 
PC ,@A#$TKINT 
@AF IRST 

1$ 

2$ 


jag FOR TRAP CALLS 


S:INITIALIZE NUMBER OF ITERATIONS 

7: CLEAR THE ESCAPE ON oa ADDRESS 
ALLOW ONE ERROR PER TEST 

22 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
;SAVE ERROR VECTOR 

LISET UP ERROR VECTOR 

3;SETUP FOR A HARDWARE SWICH REGISTER 

3;AND A HARDWARE DISPLAY REGISTER 

ee TRY TO REFERENCE HARDWARE SWR 
;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
BRANCH IF NO TIMEOUT 

SISET UP FOR TRAP RETURN 


SS deme TO SOFTWARE SWR 
7;sRESTORE ERROR VECTOR 


3SET PROCESSOR STATUS TO 0 

THIS IS FOR UNTIMELY DRIVE INTERRUPTS 
INITIALIZE THE TTY KEYBOARD 

71S THIS FIRST TIME ROUND ? 

SKIP HEADER IF NOT 

DO HEADER IF SO 


SKIP OVERALL PROGRAM HEADER 


SEQ 0032 
SEQ 0031 
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CZRJGC.P11 26-JUL-78 10:10 INITIALIZE THE COMMON TAGS SEQ 0032 
1480 004522 104401 004530 TYPE ,65$ isTYPE ASCIZ STRING 
‘tee 004526 000434 BR 64$ 33GET OVER THE ASCIZ 
1483 004620 104401 004626 TYPE -67$ 33TYPE ASCIZ STRING 
pe 004624 000417 BR 66$ 33GET OVER THE ASCIZ 
1486 004664 104401 004672 TYPE ,69$ 3sTYPE ASCIZ STRING 
1487 004670 000433 BR 68$ 33GET OVER THE ASCIZ 
1488 004760 104401 004766 TYPE .71$ 7sTYPE ASCIZ STRING 
1489 004764 000427 BR 70$ 33GET OVER THE ASCIZ 
1490 005044 104401 005052 TYPE .73$ 7TYPE ASCIZ STRING 
1491 005050 000430 BR 72$ 3;GET OVER THE ASCIZ 
1492 005132 104401 005140 TYPE 275% 3sTYPE ASCIZ STRING 
1493 005136 000415 BR 74$ 7;GET OVER THE ASCIZ 
005172 104401 005200 TYPE .77$ 7sTYPE ASCIZ STRING 
1495 005176 000430 BR 76$ 3;GET OVER THE ASCIZ 
1496 005260 104401 005266 TYPE .79$ 7sTYPE ASCIZ STRING 
Ly 4 005264 000420 BR 78$ 33GET OVER THE ASCIZ 
Ht 4 005326 012737 177777 002034 SND1: MOV A-1,QA4F IRST NEXT TIME DO NOT GIVE HEADER 
1501 005334 005737 000042 TST a#42 3zARE WE RUNNING UNDER XXDP/ACT? 
1502 005340 001006 BNE 64$ BRANCH IF YES 
1503 005342 023727 001140 000176 CMP SWR ,ASWREG 33 SOF TWARE SWITCH REG SELECTED? 
1504 005350 001005 BNE 65$ ; CH IF NO 
1505 005352 104406 GTSWR T:GET SOFT-SWR SETTINGS 
1506 005354 000403 BR 65$ 
tone 005356 112737 000001 001134 64$: MOVB #1,$AUTOB :sSET AUTO-MODE INDICATOR 
1509 005364 032777 ©10000 173546 RH7OCK: BIT #SW12,aSWR ;LOOK TO SEE IF USING RH70 
1510 005372 001403 BFS 3$ zIF SW1i2 = 0, SKIP NEXT 
1315 005374 012737 000001 002040 Muv #1 ,@#RH70 sIF SWi2 = 1, CU IS AN RH70 
1513 005402 005737 002002 3$: TST @ASELECT 3200 START? 
1514 005406 001434 BEQ TST1 SKIP NEXT IF STARTING FROM 200 ------------~ ) 
1515 005410 104401 005416 TYPE -65$ >; TYPE ASCIZ STRING 
1516 005414 000422 BR 64$ 33GET OVER THE ASCIZ 
1517 005462 104412 RDOCT 
1518 005464 042716 177770 BIC #177770, (SP) ONLY KEEP LAST 3 BITS 
1519 005470 011637 001774 MOV (SP) ,a#UNIT ;SAVE UNIT TO BE TESTED 
13s 005474 012637 002004 MOV (SP)+,@M#UNITSL ;SAVE UNIT TO BE TESTED 
1522 
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TST1: 
001212 MO #1,$TIMES :7;DO0 1 ITERATION 
ASTACK, SP zSET UP STACK POINTER 
012737 002032 #TTNO,@4TSTNM ; THIS SAVES TEST NUMBER 


012737 000030 HREGSA1 ,a#EMTVEC; a. ae VECTOR SO THAT 
NO REGISTERS ARE SAVED 
012737 000004 #2$ ,AMERRVEC [SET UP FOR BUS TIMEOUT 
000024 #24 ,RO THERE ARE 24 REG TO TEST 
001630 #RHDB ,R1 [R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
: — READ WARDMARE REG. 


;COUNT DOWN 
1$ [BRANCH IF 24 NOT DONE 
3$ BRANCH IF 24 DONE 
000006 000004 : ry cng te @WERRVE C RESTORE TRAP CATCHER 
(SP)+, :CLEAN STACK 
177776 001200 MOV Sas: SIM 1 SSTORE FAILING REG ADDR 
15 SREGISTER NON EXISTANT 
020000 173334 #SW13,aSWR Z INHIBIT ERROR PRINTOUT ? 
4$ ;BRANCH IF YES 


005614 ,65$ zTYPE ASCIZ STRING 
BR 64$ 33GET OVER THE ASCIZ 


012746 000204 #ADDMOD , = (SP) +H READY TO TYPE STARTING ADDRESS 


"CHANGE OF BASE ADDRESS*’ ROUTINE 
FORCE THE RESTART! 
000137 : a4$EOP ;GO TO END OF PROGRAM 


012737 005766 000004 : ATRP a4 ; INITIALIZE VECTOR 
5037 RH70 : INIT RH INDICATOR ++ 
S ADDRESS RPBAE CBR 1 /RH702) 
002 R ;FOUND AN RH70-SET MASK 
005736 TYPE ASCIZ STRING 
BR 66 ::GET OVER THE ASCIZ 


RIN 
: (SP)+, (SP)+ td THE STACK 
005776 -65$ TYPE ASCIZ STRING 
000413 BR 64$ 3:GET OVER THE ASCIZ 
012737 056436 000030 : #SERROR ,a#EMTVEC: ;RESTORE ERROR VECTOR 
T REGISTERS ARE SAVED 
012737 000006 000004 MERRVEC+2, aweRRVEC /RESTORE TRAP CATCHER 


104402 
000000 


Wh 
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000001 001212 MO #1,$TIMES 3;D0 1 ITERATION 
001000 RESET STACK 
000002 002032 THIS SAVES TEST NUMBER 
002040 a4RH70 TEST FLAG FOR RH70 CONTROLLER 
3 31F FLAG = 1, THIS TEST IS SKIPPED 
006124 ; JUMP TO NEXT TEST 


013737 010742 006114 @4PRCS2+12 ,QAUN 

013737 001636 006116 @ARHCS2 , @AUN+2 

004537 042272 R5 ,a4BITST TEST BITS IN REGISTER 

000000 : ° 0 ONLY THESE BITS TESTED FOR READ/WRITE 
000000 ° 0 ADDRESS OF REG. BEING TESTED 

104001 1 IN CORRECT DATA RECEIVED 

000207 PC RETURN TO BLT3 ROUTINE 


000004 
012737 001212 MO #1,$TIMES 3;D0 1 ITERATION 
012737 002032 ATTNO,@4TSTNM =; THIS SAVES TEST NUMBER 


013701 3;R1 HAS ADDRESS OF RHAS 
aR THIS CLEARS RHAS (SURPRISED!) 
TEST DATA 


BRANCH IF GOOD 
001124 a4$GDD :GOOD DATA 
042270 MO R1,@4#REGADR FAILING REG. RHAS 
1 ;RHAS DOES NOT CLEAR 
;BY WRITING ONES IN 
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g 


a 
AARAARAAAOS 

ed aD ad cd ed od cd eed ed 
SCVONAUSWI—O 


gee 


000004 
012737 


111137 
105037 


000001 


000004 
055176 
020000 
006240 
006326 
006412 
006472 


001656 
001636 
000010 


001642 
177777 


002020 
002021 


007172 
020000 
007530 


006646 
006716 
007004 
007072 


041320 
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001212 


002032 
172710 


172306 2$: 
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PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 


#1,$TIMES 


ATTNO,@4TSTNM 
PC ,@A$TKINT 
+ ‘ell area 


@R1,a@4TOTALAT 
@ATOTALAT+1 
aR 


2s 
XE2 


#SW13,aSWR 
3$ 
SELTST 


i*SET UP DRIVES PRESENT 


3:D0 1 ITERATION 


START WITH AN INIT 
;THIS SAVES TEST NUMBER 
sINITILIZE TTY KEYBOARD 
; INHIBIT ERROR TYPEOUT? 
;BRANCH IF YES 


22 TYPE ASCIZ STRING | 


33GET OVER THE ASCIZ 


;LOAD R1 WITH ADDR. OF RHAS 
;LOAD R2 WITH ADDR. OF RHCS2 
CLEAR RHCS2 (ADDRESS UNIT #0) 
; INITIALIZE DRIVE COUNTER 
;LOAD R4 WITH ADDR. OF RHER1 


[MOVE ERRORS INTO RHER1 OF UNIT ADDRESSED 


7 INCREMENT UNIT NO. (RHCS2) 
[COUNT DOWN DRIVE COUNTER 
7TEST AND DO NEXT UNIT IF 8 NOT DONE 


SAVE ALL RESULTING ATTENTION BITS 
2 CUSED IN DRIVE CLEAR TEST) 
; CLEAR ER BYTE 


UPP 
[TEST RHAS FOR ANY DRIVES PRESENT 
NONE RESPONDING - TYPE THE MESSAGE 
SOME THERE - GO FILL ‘UNITS’ TABLE 


fs ge ERROR TYPE OUT? 

TYPE ‘NO DRIVES‘'' MESSAGE IF NO 
? CHECK FOR SELECTED UNIT START AND LOAD 
7‘ UNITS’* TABLE WITH DESIRED DRIVE IF SO 


73 TYPE ASCIZ STRING 
ee 3 > ig #- ay 


TABLE 


SEQ 0036 
SEQ 0035 
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XE2: 


000010 2$: #8. ,RO ;LOAD ‘UNITS’ TABLE COUNTER 
001754 #UNITS ,R3 TLOAD ‘UNITS'’ TABLE POINTER 
177777 3$: ee ,(R3)+ :PRESET 1ST 1ST TABLE BLOCK TO ALL ONES 


; COUNT DOWN 
001374 3$ ;PRESET NEXT BLOCK IF 8 NOT DONE 


012703 001754 : #UNITS ,R3 RELOAD THE TABLE POINTER 
00 R5 INITIALIZE UNIT NO. TO 0 
001776 @4NOUNI T 3NO. OF UNITS PRESENT 
000010 #8. ,RO RELOAD THE TABLE COUNTER 
001176 @R1 , aA#STMPO ADDR OF RHAS INTO TEMPORARY STORAGE 
001176 3 a4¥$TMPO SET CARRY IF 0 BIT = 1 (UNIT ATTEN.) 
103120 5$ :CHECK NEXT UNIT IF ONE NOT IN BIT 0 


010577 172370 : R5,@RHCS2 : INSERT UNIT NO. INTO RHCS2 UNIT ADDR. 
024020 172410 #24020 ,@RHDT ;READ RHDT - IS IT A DUAL PORT RPO4 ? 
6$ TYES...TYPE THE UNIT NO. 
020020 172400 #20020, @RHDT [READ RHDT - IS IT A am PORT RPO4 ? 
6$ 7YES...TYPE THE UNIT NO 


024021 172370 #24021, @RHDT ;DUAL PORT RPOS ? 
TYPE UNIT NO. IF SO 
020021 172360 —— -@RHDT SINGLE PORT RPOS ? 


TYPE NO. IF SO 


022777 024022 172350 #24022 ,@RHDT ;READ RHDT - IS IT A DUAL PORT RPO6 ? 
001463 6$ 7YES...TYPE THE UNIT NO. 
020022 172340 #20022 ,@RHDT ;READ RHDT - IS IT A SINGLE PORT RPO6 ? 
6$ 7;YES...TYPE THE UNIT NO. 


:*NO...1T'S NOT AN RPO4/RPOS/RPO6 DEVICE SO TYPE 
[*OUT THE DEVICE TYPE 


007334 TYPE ,65$ 3: TYPE ASCIZ STRING 
000410 BR 64$ 32GET OVER THE ASCiZ 


010546 MOV R5,-(SP) ;PUT THE UNIT NUMBER ON STACK 
104405 TYPDS TYPE IT 
007366 TYPE .67$ ii TYPE ASCIZ STRING 
BR 66$ fs» THE ASCIZ 
172256 MOV @RHDT , = (SP) ‘put T ON THE STACK 
TYPOC iTY PEnIT 
007476 TYPE iE TYPE ASCIZ STRING 
BR ;GET OVER THE ASCIZ 
BR [UNIT NOT AN RPO4/RPOS/RPO6 SO TEST NEXT ONE 


MOV R5,(R3)+ +o TABLE POSITION AND INCR IT 
TYPE , $CRLF : 

MOV R5,~-(SP) ‘PUT UNIT NO. my THE STACK 
TYPDS TYPE THE UNIT 


SES 


kk ek kd dk ed ed od dd 
NNNNNNNSNSG 
ak ob ced ed eh ed eh ad ed 
WONAWEWN—O 
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005237 
005205 
005300 
001252 


013737 


013737 


78 10: 


001776 


001774 
002000 


001774 


30A (1052) 
T4 


5$: 


12$: 


L @ 
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TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


INC 
INC 
DEC 
BNE 


MOV 


3INCR THE TOTAL NO. OF UNITS 


;"RHCS2" UNIT ADDRESS 
:DRIVE COUNTER DOWN ONE 
TEST AND DO NEXT UNIT IF 8 NOT DONE 


@AUNITS,Q#UNIT ;SET UNIT NO. TO FIRST ONE FOUND/OR 0 
@ANOUNIT ,@ANUNIT ;SAVE NO. OF UNITS 
@ANUNIT ;IF NUNIT = 0 THEN ONLY ONE UNIT 

;1F NUNIT > 0 THEN MORE THAN ONE UNIT 


@ASELECT ZSTARTING ADDRESS 200 ? 
TST5 BRANCH IF STARTING FROM 200 
@AUNITSL ,@#UNIT ; CHANGE UNIT NUMBER TO SELECTED ONE 


SEQ 0038 
SEQ 0037 
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000004 : 
012737 000001 MO #1 ,STIMES 3;D0_1_ ITERATION 
012737 010272 1106 #1$,$LPADR 32SET SCOPE LOOP ADDRESS 


012737 000005 MTTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 
004737 042620 PC ,a#CLDISK zFILL UNIT NO. 
002016 @4ATTENT : CLEAR 


3*TEST FOR UNIT #0 


@4UNIT IT #0 NEXT IN THE UNITS TABLE ? 
10$ TEST THIS UNIT 
#41,R0 ; ” CHECK a “ MEDIA LOCATION 
#11, (RO) S AN RPO4/ 
10$ 3 O AHEAD GIT TESTING UNIT #0 
@4SELECT [WAS UNIT #0 SELECTE 

7(IE. WAS IT ‘, ei0 START ?) 
10$ :1F SO...TEST 


3*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
3*& DECREMENT THE ‘'NOUNITS’’ PRESENT (TO BE TESTED) 


001754 #UNITS ,RO ;LOAD THE UNITS TABLE POINTER 
005720 (RO) + SELECT THE NEXT UNIT IN THE TABLE 
7; (DOUBLE INCREMENT THE POINTER, RO) 
022710 177777 —— SIS THERE ANOTHER TABLE ENTRY PRESENT ? 


zIF NOT (LOC = -1)...MUST USE UNIT #0 
(RO) ,@#UNIT [SET UP TO BE THE UNIT UNDER TEST 
@4NOUNITS [DECREMENT BECAUSE UNIT # 0 WONT'T BE TESTED 
@4UNIT RO [RO CONTAINS UNIT NO. 


;*SET UP THE PROPER DEVICE TYPE FLAG 


171754 RO, @RHCS2 SET UP UNIT ADDRESS 
002036 CLEAR RPO6 DEVICE TYPE FLAG 
024022 171770 #24022 ,@RHDT [DUAL PORT RPO6 ? 

2s 7YES...SET THE FLAG 
020022 171760 #20022 ,ARHDT ; SINGLE oe RPO6 ? 

2s 7YES..SET FLAG 

BR 3$ ZNO... .DON" ; SET RPO6 FLAG 

177777 002036 2$: #-1 , @ARPO6 :SET IT 


3$: zASSUME THE NEXT UNIT IS AN RPO4 
004220 002016 ATABLE(RO) ,@MATTOENT ;SET APPROPRIATE ATTENTION BIT 


007732 ,65$ zz TYPE ASCIZ STRING 
BR 4$ 32GET OVER THE ASCIZ 
001774 MOV @AUNIT ,~(SP) UNIT NO. TO STACK 
TYPE DRIVE NO. 
007776 ,67$ zi TYPE ASCIZ STRING 
000410 BR 66$ GET OVER THE ASCIZ 
017746 171644 @RHSN, = (SP) 7:SAVE @RHSN FOR TYPEOUT 


BeaazaNasas IIIS 
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1791 104402 TYPOC 
104401 010032 a ,69$ 


000410 68$ : 
017746 171606 MOV @RHDT , = (SP) 33SAVE @RHDT FOR TYPEOUT 
104402 33G0 TYPE--OCTAL ASCII (ALL DIGITS) 


022777 024020 171576 #24020 ,@RHDT DUAL PORT RPO4 ? 
001425 4$ :TYPE ASCII MSG OUT 
022777 020020 171566 #20020 ,@RHDT ZSINGLE PORT RPO4 ? 
001421 4$ ;TYPE THE MESSAGE 


022777 024021 171556 MP a 4 — RPOS ? 
‘ 020021 171546 #20021 ,@RHDT : SINGLE PORT RPOS ? 
010116 001447 6$ : TYPE MSG 


010120 022777 024022 171536 #24022 ,@RHDT DUAL PORT RPO6 ? 
001424 TYPE MSG 
022777 020022 171526 #20022 ,@RHDT TSINGLE PORT RPO6 ? 
001420 5$ : TYPE MSG 
010140 000454 BR [DRIVE IS NOT AN RPO4/RPOS/RP06 - SO 
DON'T TYPE THE ASCII MESSAGE 


;~SHOULD NEVER HAPPEN AT THIS POINT 
:UNLESS DRIVE GOT SICK WHILE TESTING 
S IN PROGRESS 


010150 . ::TYPE ASCIZ STRING 
BR 70 +:GET OVER THE ASCIZ 
*SKIP NEXT MESSAGE 


010206 : : zi TYPE ASCIZ STRING 
BR 723 GET OVER THE ASCIZ 
sSKIP NEXT 


0102 .75$ 32 TYPE ASCIZ STRING 
010242 00041 BR 74$ 33GET OVER THE ASCIZ 


010272 : @RHSN or SERIAL NO. AND DRIVE TYPE 
2 @RHDT THESE TWO ARE TO HELP SCOPE LOOPS 
0 @RHSN,@M#SAVSN SAVE TO CHECK IF CLR RHCS2 BIT ; CLEARS ANY BITS 
010310 017737 @RHDT.a#SAVDT SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BITS 


re 
Wr 


FOREN oS Se Teoe 


Ege 


0 Co 00 69 Co Co CO Co 
— oo So SS 
NOUSWN—O 


1 
1 
: 
1 
1 
1 
1 


010142 
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000006 
042620 
010 

010346 
010416 
010474 
010000 
010570 
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MACY11 30A(1052) 27=JUL-78 12:41 PAGE 42 
T5 TYPE SERIAL NUMBER AND DRIVE TYPE 


TST6: 
002032 MO #TTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 
PC ,a@#CLDISK :GIVE INITILIZE 
HECK MOL IN RHDS1 
“BRANCH IF MOL LOW 
is TYPE ASCIZ STRING 


23 TYPE ASCIZ STRING 
3GET OVER THE ASCIZ 
;CHECK MOL IN RHDS1 
BRANCH IF MOL_IS HIGH 
>; TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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2 
2 
2 
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2 
2 
2 
< 
<c 
é 
C 
‘ 
r 
é 
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‘¢ 
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‘¢ 
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‘ 
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000007 
002040 
010752 
042620 


042272 


MACY? 29A(1952) 
16 


-SBTTL REGISTCR TESTS 


TST7: SCOPE 
002032 MO 


002032 
010744 MOV 
170700 PRCS2: MOV 


TST10: 


002032 MOV 
011010 MOV 
170634 PRCS1: po 


27-JUL-78 
CHECK MOL TO BE 


12: 4} 
LOW 


ATTNO,@4TSTNM 
a4R 


H70 


4 
PAGE 43 


THIS SAVES TEST NUMBER 
TEST FLAG FOR RH70 CONTROLLER 


30$ SIF FLAG = 1, THIS TEST IS SKIPPED 
TST10 TAPP TO NEXT TES) soeeseweeneeessse ) 
PC ,@4CLDISK GIVE INITIALIZE 

MSTACK, SP RESET STACK 

ATTNO,@4TSTNM =; THIS SAVES TEST NUMBER 

@ARHCS2 , @APRCS2+14 GET REGISTER -— 
@AUNIT,@RHCS2  ;MOVE UNIT NO. UNDER TEST 

R5,BITST TEST BITS IN REGISTER 

20017 ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
176710 SADDRESS OF REG. BEING TESTED 

1 z INCORRECT DATA RECEIVED 

PC SRETURN TO BLT3 ROUTINE 

AMSTACK , SP RESET STACK 

ATTNO,QA4TSTNM = ;THIS SAVES TEST NUMBER 

@ARHCS1 ,@APRCS1+14 ;GET REGISTER ADDRESS 

@FUNIT ,ARHCS2 MOVE UNIT NO. UNDER TEST 

R5 ,BITST TEST BITS IN REGISTER 

1476 ONLY THESE BITS ARE TESTED FOR READ/WRITE 
176700 SADDRESS OF REG. BEING TESTED 

1 ; INCORRECT DATA RECEIVED 

PC :RETURN TO BLT3 ROUTINE 


SEQ 0042 
SEQ 0041 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
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2 
2 
2 
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2 
2 
2 
2 
2 
2 
2 
2 
P 
2 
2 
P 
c 
2 
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c 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
¢ 
4 
é 
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é 
é 
{ 
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011016 


011020 #STACK , SP RESET STACK 

011024 002032 ATTNO,QATSTNM =; THIS SAVES TEST NUMBER 

011032 004737 PC,@4CLDISK INIT AND SET UNIT NUMBER AND DEVICE - 
[CPU REG. CORRESPONDENCE (R1-R4) 


;*SET FORCED PARITY ERROR ‘PAT‘ 
011036 052777 170572 BIS #PAT ,@RHCS2 soe TRATED TO INVERT PARITY 
011044 005077 170572 CLR @RHER1 [WRITE DCL REGISTER USING BAD CONTROL PARITY 


z*WITH THIS PARITY ERROR NOTHING WILL BE READ TIL! IT IS 
; *CLEARED 


011137 001126 @R1 , AASBDDAT ;RHCS1 ---> S$BDDAT 
022737 104200 001126 #SC!DVA!RDY ,@ASBDDAT ;COMPARE RHCS1 AFTER PARITY 


7 ERROR 
001406 1$ BRANCH IF oe 1 
012737 104200 001124 #SC!DVA!RDY, a#SGDDAT GOOD DAT 
010137 042270 R1,@4REGADR REGISTER "ADDRESS RHCS1 
104001 1 TSETTING P 
WRITING DCL REGISTER RHCS1 
[DID NOT SET SC!DVA!RDY 
WITH ‘PAT’ BIT HIGH 
013746 001774 : @AUNIT ,- (SP) GET UNIT NUMBER 
#PAT!IR, (SP) : INCLUDE PAT AND IR 
(SP)+, aFSGDDAT [PUT ON STACK 
@R2,a#$BDD 3;RHCS2 ---> SBDDAT 
001124 001126 @ASGDDAT, aeSBDDAT ;COMPARE RHCS2 
2$ :0K = SC!DVA!RDY ARE HIGH 
042270 MOV R2,@4REGADR SREGISTER ADDRESS 
1 SREADING DCL REGISTER RHCS2 DID NOT 
3; SHOW UNITA!PAT!IR BITS HIGH 


011437 001126 : @R4 , AASBDDAT RHER1 ---> SBDDA 

022737 000010 001126 APAR , @ASBDDAT ZERROR REGISTER RHER| SHOULD 
001406 3$ sA_~ OK, IT DOES 

012737 000010 001124 H#PAR,@#SGDDAT  ;GOOD DATA 

010437 042270 MO R4,Q@4#REGADR SFAILING REGISTER RHER1 
104001 1 PARITY ERROR DID NOT 


3 


1 
1 
1 
1 
1 
1 
1 
1 
1 


00000000 
aad aah aed aad ah aed eo ad 
lelelelelelajlelo) 
ah cok aah cad anh cad ca ad 
et oh aed od nh oh a es 


ed od od od 
RoR ROR RIPON RON NO AI RIPO NOP NI NINININ NNN 


FSNS AK KSRSESKS 


oooo OO 
abahah abab 
Beiababh aba 
Bebabah albad 


oO 
p-4 
= 
rs 
o 
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011232 
0112 


011274 
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001000 


042272 


MACY11 


002032 
011224 
170420 


002032 
011270 
170354 


E 4 
ee 27-JUL-78 12:41 PAGE 45 


RHCS1 = BIT # 13 = MCPE 


STACK ,SP 


ASTACK, SP 
#TTNO,@4TSTNM 


@ARHBA , AAPRBA+14 


QAUNIT, @RHCS2 
RS BITST 
177776 


RESET STACK 


; THIS SAVES TEST NUMBER 
;GET REGISTER ADDRESS 

s;MOVE UNIT NO. UNDER TEST 

TEST BITS IN REGISTER 

ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
ZADDRESS OF REG. BEING TESTED 

‘Ae TURN TO DATA RECEIVED 

;RETURN TO BLT3 ROUTINE 


RESET STACK 


; THIS SAVES TEST NUMBER 
GET REGISTER ADDRESS 
:MOVE UNIT NO. UNDER TEST 
TEST BITS _IN REGISTER 
ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
ZADDRESS OF REG. BEING TESTED 
; INCORRECT DATA RECEIVED 
[RETURN TO BLT3 ROUTINE 


SEQ 0044 
SEQ 0043 
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000207 


MACY11 ene 
713 


TST14: 


pat 
011334 
170310 PRER1: 


F 
BS pog ™ -78 12:41 
- UNIBUS ADDRESS REGISTER 


SCOPE 
MOV 


ASTACK , SP 


ATTNO,Q4TSTNM 


ARHER , AAPRER1+14 


@AUNIT ,@RHCS2 


R5,BITST 
177777 
a 
PC 


4 
PAGE 46 


RESET STACK 
; THIS SAVES TEST NUMBER 
;GET REGISTER ADDRESS 
;MOVE UNIT NO. UNDER TEST 
TEST BITS IN REGISTER 
ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
TADDRESS OF REG. BEING TESTED 
INCORRECT DATA RECEIVED 
:RETURN TO BLT3 ROUTINE 


SEQ 0045 
SEQ 0044 
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011440 
011444 
011446 
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000004 
012737 
004737 


001354 


000015 002032 
042620 


001124 


001126 
042270 


000400 
001000 


000435 
000005 
000001 


001124 
001126 
042270 


001340 
000400 


MACY11 30A(1052) 
114 


#TTNO,@4TSTNM 


#DMD!400, (SP) 
(SP), a#$GDDAT 
(SP) +,aRO 


2 
@RO , $BDDAT 
- eae eats 


R1 
#400,R1 
#BITO9,R1 
R2 


1$ 


;*NOW FLOAT A 0 


#435 ,R1 

#5 Re 
ADMD , ARO 
R1,a@RO 
R1,aRO 

4$ 
R1,@4#$GDDAT 


@RO , AA SBDDAT 
enact 


G 4 
27-JUL-78 12:41 PAGE 47 
RHER1 = ERROR REGISTER #1 


THIS SAVES TEST NUMBER 

SET UNIT NUMBER AND INIT 
RO HAS MAINTENANCE REG. ADR. 
[R1 HAS DATA 

;R2 HAS COUNT OF NUMBER OF BITS 
SET DIAGNOSTIC MODE BIT 

SET DATA IN RHMR 

ZSAVE DATA FOR COMPARES 
INCLUDE BIT 0 

SAVE FOR ERROR PRINTOUT 
COMPARE DATA 

;BRANCH IF GOOD 


;BAD DATA 

sFAILING REG. ADR. 
MAINTENANCE REGISTER 
ZFAILED TO SET INDICATED 


; CLEAR CARRY 

GET NEXT DATA 

;SET UNUSED BITS 
;CLEAR READ ONLY BIT 


; COUNT 
;BRANCH IF 5 BITS NOT DONE 


;R1 HAS DATA 

3R2_HAS COUNT BITS 

;SET DIAGNOSTIC MODE BITS 
:SET DATA_IN RHMR 


BAD DATA 

FAILING REG. ADR. RHMR 
MAINTENANCE REGISTER 
77 t Fl ALLOW WRITING 


+ ae 


R1 T DATA 
m1 T95'81106:81 707181109, R1 ;CLEAR READ ONLY BIT 
#B1T08 BY ROL 


* 


R 
3$ 


;SET BIT ZEROED 
‘COUNT “TF 5 BITS DONE 
BRANCH IF INCOMPLETE 


SEQ 0046 
SEQ 0045 
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CZRJGC.P11 26-JUL-78 10:10 715 RHMR - MAINTENANCE REGISTER SEQ 0046 


011530 : SCOPE 


011532 012 001000 ASTACK, SP RESET STACK 
002032 #TTNO,@#TSTNM THIS SAVES TEST NUMBER 
011566 MO @ARHDST , aAPRDST +14 ;GET REGISTER ADDRESS 
170056 : @AUNIT,@RHCS2  ;MOVE UNIT NO. UNDER TEST 
042272 R5,BITST TEST BITS IN REGISTER 
17437 ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
176706 ZADDRESS OF REG. BEING TESTED 
1 ; INCORRECT DATA RECEIVED 
011572 PC :RETURN TO BLT3 ROUTINE 


011574 


011576 012706 00 ASTACK, SP RESET STACK 
011602 002032 ar ; THIS SAVES TEST NUMBER 
011632 MO 14 ;GET REGISTER ADDRESS 
170012 : IT, @RHCS ;MOVE UNIT NO. UNDER TEST 
042272 J . ; TEST BITS IN REGISTER 


ONLY THESE BITS ARE TESTED FOR READ/WRITE 
ADDRESS OF REG. BEING TESTED 

0400 ; INCORRECT DATA RECEIVED 

000207 RETURN TO BLT3 ROUTINE 
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CZRJGC.P11 26-JUL-78 10:10 117 RHER2 = ERROR REGISTER #2 SEQ 


SCOPE 
MOV AMSTACK, SP RESET STACK 
002032 AMTTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 
011676 MO @ARHOF , @APROF +14 ;GET REGISTER ADDRESS 
167746 : @FUNIT,@RHCS2 ;MOVE UNIT NO. UNDER TEST 
042272 J R5,BITST TEST BITS IN REGISTER 
. 16277 TONLY THESE BITS ARE TESTED FOR READ/WRITE 
176732 TADDRESS OF REG. BEING TESTED 
1 ; INCORRECT DATA RECEIVED 
PC ;RETURN TO BLT3 ROUTINE 


TST21: SCOPE 
001000 MOV AMSTACK, SP RESET STACK 
000021 002032 MTTNO,QA#TSTNM =; THIS SAVES TEST NUMBER 
001652 011742 @ARHCA , @APRCA+14 ;GET REGISTER ADDRESS 
001774 167702 PRCA: @AUNIT.ARHCS2  ;MOVE UNIT NO. UNDER TEST 
042272 R5,BITST ; TEST BITS IN REGISTER 
° 1777 TONLY THESE BITS ARE TESTED FOR READ/WRITE 
176734 ADDRESS OF REG. BEING TESTED 
1 ; INCORRECT DATA RECEIVED 
011746 PC RETURN TO BLT3 ROUTINE 
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011750 000004 TST22: SCOPE 
MOV ASTACK , SP RESET STACK 


002032 MTTNO,Q@A4TSTNM =; THIS SAVES TEST NUMBER 
012006 MO @ARHER3 ,aMPRER3+14 ;GET REGISTER — 
167636 PRERS: @AUNIT,@RHCS2  ;MOVE UNIT NO. UNDER TEST 
042272 J R5,BITST TEST BITS IN REGISTER 
177777 ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
176742 ADDRESS OF REG. BEING TESTED 
104001 1 ; INCORRECT DATA RECEIVED 
012012 PC RETURN TO BLT3 ROUTINE 


;**OF THE TWENTY REGISTERS (4 IN RH11, 16 IN RPO4) ONLY 12 ARE 
;**CHECKED IN THE ABOVE TESTS 

;**TWO ARE ALREADY TESTED (SERIAL NO. AND DRIVE TYPE) 

;**THE OTHER 7 WHICH ARE RHDS1, RHLA, RHCC, RHEC1, RHEC1, RHEC2 
;**ARE READ ONLY REGISTERS. ONE OR ZERO CANNOT BE WRITTEN 
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012014 000004 : SCOPE 
012016 012706 001000 MOV #STACK , SP ;RESET STACK 
012022 012737 000023 002032 MOV MTTNO,@#TSTNM = ;THIS SAVES TEST NUMBER 


012030 004737 042620 JSR PC ,@#CLDISK HERE IT IS USED TO SETUP HARDWARE / 
+ CPU aid CORRE SPONDENCE 


: ER1 
CLR @FERFLGS = CLEAR ERROR FLAG 


;*SIMULATED DISK AREA WILL BE USED AS A_ TEMPORARY 
:*STORAGE TABLE FOR DRIVES PRESENT DETERMINED FROM 'NED' = 0 IN RHCS2 


012701 051422 #DISK,R1 LOAD TABLE POINTER 
000010 #8.,R ;LOAD TABLE LOCATION COUNTER 
177777 1$: #-1,(R1)+ SFILL 8 LOCATIONS WITH -1 
RO ;COUNT DOWN ONE LOCATION 
1$ BRANCH IF 8 NOT DONE 


aR2 SELECT UNIT NO.O (U2!U1!U0=0) 

000010 #8. RO RELOAD TABLE LOCATION COUNTER 
051422 ADISK,R1 RELOAD THE TABLE POINTER 

: aR4 READ A DRIVE REGISTER (RHER’) 

010000 3 NON EXISTENT DRIVE BIT = 0 ? 


YES...DRIVE PRESENT, CHECK THE TYPE 
ZNO...DECREMENT DRIVE COUNT 
ZCHECK RESULTS IF 8 DRIVES DONE 


@R2,- (SP) ;PUT RHCS2 ON THE STACK 
177770 #*C7, (SP) MASK ALL BUT THE UNIT NUMBER 
(SP) ; INCREMENT THE UNIT NUMBER 
001640 @#RHCS1 ,R3 [GET RHCS1 ADDRESS 
5203 R ZADDRESS UPPER BYTE OF RHCS1 
012124 112713 000100 #100,aR3 SET ‘TRE’ IN RHCS1 
[WITHOUT ADDRESSING DRIVE 
012130 012612 (SP)+,@R2 SRHCS2 HAS THE INCREMENTED UNIT 
WITH "NED" CLEARED 
012132 000757 2$ TEST FOR NEXT DRIVE 


7*CHECK THE UNIT TYPE AND BUILD "NED* DERIVED UNITS TABLE 


022777 024020 167522 3$: #24020 ,@RHDT 31S THIS A_DUAL PORT RPO4 ? 
001425 ENTER IN TABLE IF SO 
020020 167512 #20020 ,@RHDT 71S _THIS A_SINGLE 4 RPO4 ? 
8$ SENTER IN TABLE IF S 


022777 024022 167502 #24022 ,ARHDT 31S THIS A_DUAL PORT RPO6 ? 
001415 8$ TENTER IN TABLE IF SO 
020022 167472 #20022 ,@RHDT 31S _THIS A_SINGLE PORT RPO6 ? 
8$ SENTER IN TABLE IF SO 
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012174 022777 024021 167462 #24021 ,@RHDT 1S THIS A_DUAL PORT RPO5S ? 
giseee 001405 8$ SENTER IN TABLE IF SO 

012204 022777 020021 167452 #20021 ,@RHDT 31S THIS A_SINGLE PORT RPO5 ? 
012212 001401 8$ SENTER IN TABLE IF SO 


012214 000732 7$ 3;NO RPO4 FOUND SO CHECK NEXT UNIT 


012216 012746 : #8.,-(SP) ;LOAD MAX NO. OF DRIVES 
012222 160016 RO, (SP) 7 (SP) NOW HAS THE PRESENT DRIVE NO. 
012224 012621 (SP)+,(R1)+ [LOAD TABLE, INCR TABLE LOCATION & 
ZRESTORE THE STACK TO WHERE IT WAS 
012226 005300 ;DECREMENT THE DRIVE COUNT 
CHECK RESULTS IF 8 UNITS CHECKED 
>SELECT oe UNIT 
GO TEST IT 


z*COMPARE "NED* DERIVED UNITS TABLE WITH THAT DERIVED USING RHAS IN T4 


043514 4$: RO, @#COMPAR COMPARE RESULTS 
HER /RHAS —— DATA 
:"NED' TEST DAT 
NO.OF WORDS tO. COMPARE 
[RETURN FOR ERROR HEADER 
RETURN FOR ERROR DATA 
012254 012422 RETURN FOR GOOD COMPARISON (NEXT TEST) 


*SPECIAL "NED'/*RHAS* TABLE TYPE OUT ron hw (BYPASSES .SERRTYP AND 
7*HENCE IGNORES INHIBIT ERROR TYPEOUT SWITCH) 


012256 104022 5$: 22 
000010 MO #8. ,R3 ;LENGTH OF BOTH UNIT TABLES 
001754 #MUNITS ,R1 SADDRESS OF RHAS/RHER1 UNITS TABLE 
051422 #DISK,R2 zADDRESS OF ‘NED’ RHCS2 UNITS TABLE 
012137 001124 14$: (R1)+,@#$GDDAT ;LOAD RHAS UNIT NO.INTO ‘‘SGDDAT'* AND 
z INCREMENT THE TABLE LOCATION 
012237 001126 (R2)+,@4$BDDAT :LOAD "NED’ UNIT NO. INTO ‘‘SBDDAT'' 
3:& INCR TABLE LOCATION 


032777 020000 166626 6$: #SW13,aSWR : INHIBIT ERROR TYPE OUTS ? 
001043 BN 13$ sVES.. EXIT 
177777 +=001124 #-1 , @ASGDDAT :DOES RHAS a TABLE LOCATION = -1 ? 
11$ TYPE IT - CHECK 'NED' TABLE 
-SPACE8 
,SPACE8 
@4SGDDAT ,~( SP) 
2 TYPE 6 DIGITS 
0 ; SUPPRESS LEADING ZEROS 
012344 ,SPACE2 [SPACE OVER TO THE NEXT COLUMN 
012350 000406 BR 12$ CHECK THE ‘NED’ UNIT TABLE 


012352 : - SPACE8 ; TAB OVER THE PC COMUMN 
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022737 
001404 


062722 
062722 


177777 
001126 
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T23 CONT 


ROL AND STATUS 2 (RHCS 2) = ‘NED* 


TYPE - SPACE8 ; TAB OVER THE TEST NO. COLUMN 
PE - SPACES 3; TAB OVER THE RHAS UNIT COLUMN 


001126 12$: #-1 ,AASBDDAT spoes "NED UNIT. TABLE LOCATION = 
@#SBDDAT ,-(SP) . VE a#$BDDAT FOR TYPEOUT 


I TYPE 6 DIGITS 
3; SUPPRESS LEADING ZEROS 


FOR THE NEXT LINE IN BOTH TABLES 
: COUNT DOWN 2 TABLES LOCATION COUNTER 
F NOT = 0 TYPE OUT NEXT 2 LOCATIONS 
SADJUST STACK FOR NO 'POP’' & RTS FROM ''COMPAR’' 


7*IN THE ABOVE TEST BITS 0,1,2, AND BIT 12 ARE TESTED 


so THE “DRIVES PRESENT’’ TYPE OUT DOES NOT AGREE WITH WHAT WAS 
*FOUND USING RHER1 & RHAS, THEN THE ERROR IS IN THE LOGIC 
[*FOR BIT12(NED), OR UNIT SELECT(BIT 0 TO 2), OR RHER1, OR RHAS 


:*IT IS NOT POSSIBLE BY PROGRAM TO CHECK IF A NON-EXISTENT 
;*DRIVE IS REALLY STANDING THERE OR NOT 


;*MANUALLY LOAD LOCATION "ERUNIT’' WITH A UNIT NUMBER 
7*AND RESTART AT LOCATION ‘ERSTAR’’ THIS WILL LOOP FOR 
3*EVER DOING EXACTLY AS TEST ON THAT ONE UNIT 


3*TO GET BACK TO MAIN DIAGNOSTIC HIT HALT SWITCH AND 
;*RESTART PROGRAM IN NORMAL MANNER 


0052 


SEQ 0051 
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012422 000004 : SCOPE 


012424 004737 042620 JSR PC ,@4CLDISK ;SET REGISTERS AND CLEAR 
005037 002006 CLR @#ERFLGS ;CLEAR ANY ERRORS 


;*FILL ALL POSSIBLE BITS WITH ONES 


012777 177777 #177777 ,@RHDB _, ADDRESS REGISTER GETS 177777 
D COUNT REGISTER GETS 177777 
‘Bus ADDRESS REGISTER GETS Add 
:CONTROL AND STATUS 2 GETS 157010 
;CONTROL AND STATUS REGISTER/GETS 1476 
ERROR sg Fhe A 177777 


DESIRED CYLINDER 

#177777. @RHER3S ERROR REGISTER 3 
0125 000001 #DMD , @RHMR ;MAINTENANCE REGISTER 
012544 012777 177777 167106 #177777, @RHMR  :MAINTENANCE REGISTER 


012552 052712 000040 ACLR, @R2 CLEAR ALL POSSIBLE BITS 
012556 013712 001774 @AUNIT ,AR2 SREINSTATE UNIT 
012562 012700 001630 #RHDB, RO [RO CONTAINS ADDR. OF ADDR. OF REG. 


;*DATA BUFFER REGISTER 


012737 177777 001124 #177777 ,AMSGDDAT; GOOD DATA FOR ERROR 
@RO, @#REGADR tte Senn 
@(RO)+,a#$BDDAT : TEST DAT 
001126 @ASGDDAT , a# SBDDAT ; COMPARE ‘6000 WITH TEST DATA 
2s ;BRANCH IF GOOD 


012614 1 ;RHDB DID NOT HAVE ALL ONES 
ZAFTER A CLR IN RHCS2 


012616 052712 : ACLR,aR2 . SET CLEAR AGAIN BECAUSE 
;READING RHDB AFTER CLEARING WILL 
“SET DLT SC AND TRE 
013712 a#UNIT,aR2 RE INSTATE UNIT NO. 
:*WORD COUNT REGISTER 
012737 177777 001124 3$: #177777 , @ASGDDAT i 600D DATA FOR ERROR TYPEOUT 
001126 @(RO)+,a#$BDDAT ;TEST DAT 
177777 001126 #177777 ,@ASBDDAT COMPARE DATA 
4$ :BRANCH IF GOOD 
012650 004737 013434 PC ,a#ERCS2C * JUMP TO ERROR FOR CLR (BIT 5) 
:*BUS ADDRESS REGISTER 


012654 012737 000000 001124 4$: MOV #0, @ASGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
012662 013037 001126 MOV @(RO)+,@#$BDDAT ; TEST DATA 
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012666 022737 000000 001126 #0, @#$BDDAT : COMPARE DATA 

012674 Q CH IF GOOD 

012676 PC ,@#ERCS2C ‘JUMP TO ERROR FOR CLR (BIT 5) 
:*CONTROL AND STATUS 2 REGISTER 


012702 000100 : #100,~(SP) INCLUDE IR 
012706 @AUNIT , (SP) [SET UNIT NO. 
(SP)+, yt a ;GOOD DATA FOR TYPE OUT 
@(RO)+,a#$BDDAT ; TEST DATA 
001126 aASGDDAT, @#SBDDAT ; COMPARE DATA 


6$ CH IF GOOD 
013434 PC ,a#ERCS2C ;JUMP TO ERROR FOR CLR (BIT 5) 
:*CONTROL AND STATUS 1 REGISTER 


004276 001124 : #4276,@4$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 
001126 @(RO)+,@#$BDDAT ;TEST DATA 
004276 001126 #4276,@A4$BDDAT ;COMPARE DATA 
7$ BRANCH IF GOOD 
013434 PC ,a#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 


1 REGISTER 


000000 001124 : #0 , AASGDDAT :GOOD DATA FOR ERROR TYPEOUT 
001126 a(RO)+, re pe STEST DATA 
000000 001126 #0, a#$8DD COMPARE DATA 

108 BRANCH IF 


0 GOOD 
013434 PC ,a@#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 


:*DESIRED SECTOR/TRACK REGISTER 


017437 001124 2 #17437 ,@#SGDDAT 3;GOOD DATA FOR ERROR TYPEOUT 
001126 @(RO)+,@#$BDDAT ; TEST DATA 
017437 001126 #17437 ,@#SBDDAT ; COMPARE DATA 
11$ BRANCH IF GOOD 
013434 PC ,a#ERCS2C 7 JUMP TO ERROR FOR CLR (BIT 5) 


2 REGISTER 
000000 001124 : #0, a#$GDDAT :GOOD DATA FOR ERROR TYPEOUT 
001126 a(RO)+,a#$BDDAT :TEST DATA 
000000 001126 #0, a4SBDDAT *COMPARE DATA 
12$ “BRANCH IF GOOD 
013434 PC, a#ERCS2C ‘JUMP TO ERROR FOR CLR (BIT 5) 
:*OF FSET REGISTER 
116000 001124 : #116000, a#SGDDAT ; 600 DATA FOR ERROR TYPEOUT 
og 1126 a(RO)+ GASBDDAT | :TEST DATA 
16000 001126 #116000, a#$8 = COMPARE DATA 
0131 : 13$ CH IF GOOD 
013110 004737 013434 PC, a#ERCS2C “JUMP TO ERROR FOR CLR (BIT 5) 


;*DESIRED CYLINDER ADDRESS REGISTER 
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2379 013114 012737 001777 001124 138: MOV #1777, Q@#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
2380 013122 073037 001126 MOV @(RO)+,aM#SBDDAT : TEST DATA 
2381 013126 0922737 001777 001126 CMP #1777,aH4SBDDAT ;COMPARE DATA 
2382 013134 001402 BEQ 14$ BRANCH IF GOOD 
Sear 013136 004737 013434 JSR PC ,avERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
tH z*ERROR 3 REGISTER 
2387 013142 012737 000000 001124 14$: MOV #0, @#SGDDAT GOOD DATA FOR ERROR TYPEOUT 
2388 013150 013037 001126 MOV @(RO)+,a#SBDDAT :TEST DATA 
2359 013154 022737 000000 001126 CMP #0, a4SBDDAT COMPARE DATA 
2590 013162 001402 BEQ 15$ ;BRANCH IF GOOD 
$33) 013164 004737 013434 JSR PC ,aFERCS2C ;JUMP TO ERROR FOR CLR (BIT 5) 
te, :*ATTENTION SUMMARY REGISTER 
2395 013170 013037 001126 15$: MOV @(RO) +, a#$BDDAT GET RHAS CONTENTS 
239% 013174 012737 000000 001124 MOV #0, a#SGDDAT GOOD DATA FOR ERROR TYPE OUT 
2397 013202 123737 001124 001126 CMPB @#SGDDAT , AASBDDAT COMPARE FOR RHAS 
2398 013210 001402 BEQ 16$ ‘BRANCH IF GOOD 
2399 013212 004737 013434 JSR PC, a@#ERCS2C : JUMP TO ERROR FOR CLR (BIT 5) 
ar : IN RHCS2 
ent 7 *MAINTAINABILITY REGISTER 
2404 013216 012737 000400 001124 16$: MOV #400,a4$GDDAT  ;GOOD DATA FOR ERROR TYPEOUT 
2405 013224 013037 001126 MOV @(RO)+,a#SBDDAT ; TEST DATA 
2406 013230 022737 000400 001126 CMP #400,@4$BDDAT  ;COMPARE DATA 
2407 013236 001402 BEQ 17$ ;BRANCH IF GOOD 
rid 013240 004737 013434 JSR PC,a¥ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
sein *DRIVE STATUS REGISTER 
2412 013244 012737 000600 001124 17$: MOV #600,@4$GDDAT  ;GOOD DATA FOR ERROR TYPEOUT 
2413 013252 013046 MOV a(RO)+,-(SP) GET RHDS1 
2414 013254 011637 001126 MOV (SP) ,@#$BDDAT ;TEST DATA 
2415 013260 042716 001100 BIC #VV'PROG, (SP)  ;CLEAR VV AND PROG 
2416 013264 022726 000600 CMP #600, (SP)+ COMPARE DATA 
2417 013270 001402 BEQ s;BRANCH IF GOOD 
2418 013272 004737 013434 JSR PC,a#ERCS2C :JUMP TO ERROR FOR CLR (BIT 5) 
2419 7 IN RHCS2 
2420 
S055 z*DRIVE TYPE 
2423 013276 013737 002010 001124 20$: MOV @ASAVDT ,AASGDDAT :GOOD DATA FOR ERROR TYPEOUT 
2424 013304 013037 001126 MOV a(RO)+,a@#$BDDAT ;TEST DATA 
2425 013310 023737 002010 001126 CMP OASAVDT , AASBDDAT COMPARE DATA 
2426 013316 001402 BEQ 21$ ;BRANCH IF GOOD 
oe l4 013320 004737 013434 JSR PC ,a#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
2429 7*SERIAL NUMBER REGISTER 
sc 
2432 013324 013737 002012 001124 21$: MOV @ASAVSN,@#$GDDAT :GOOD DATA FOR ERROR TYPEOUT 


2433 013332 013037 001126 MOV @(RO)+,Q#$BDDAT ;TEST DATA 
2434 013336 023737 002012 001126 CMP @ASAVSN ,@#$BDDAT COMPARE DATA 
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013344 001402 BEQ 22$ ;BRANCH IF GOOD 
013346 004737 013434 JSR PC ,aF¥ERCS2C 7 JUMP TO ERROR FOR CLR (BIT 5) 


3*ECC1 POSITION 


013352 012737 000000 001124 : #0, @A#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
013360 013037 001126 @(RO)+, a#$BDDAT ; DATA 

013364 022737 000000 001126 #0, @4SBDDAT : 

013372 001402 23$ GOOD 

013374 004737 013434 PC ,a4ERCS2C JUMP TO ERROR FOR CLR (BIT 5) 


7*ECC2 PATTERN 
012737 000000 001124 : #0, @ASGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
001126 a(RO)+,@#$BDDAT ;TEST DATA 
000000 001126 #0, a4$BDDAT COMPARE DATA 
24$ BRANCH IF GOOD 
013434 PC ,@#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
3 *LOOK-AHEAD REGISTER 


013426 005720 : TST (RO) + ;AS_ THE LOOK-AHEAD REG. CANNOT BE PREDICTED 
AFTER AN INIT IT IS NOT CHECKED 


z*CURRENT CYLINDER ADDRESS REGISTER 


005720 25$: TST (RO) + zAS_ THE CURRENT REG. CANNOT BE PREDICTED 
zsAFTER A INIT IT IS NOT CHECKED 


é 
é 
< 
{ 
< 
‘ 
‘ 
‘ 
‘ 
: 
‘ 
: 
‘ 
: 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
/ 
‘4 


26$: 
000405 BR TST25 ;BRANCH OVER JSR 


014037 042270 ERCS2C: -(RO), @#REGADR Rantatt REGISTER ADDRESS 
104001 E 1 :CLR (BIT 5) IN RHCS2 DID 
;NOT CLEAR APPROPIATE BITS 
7OR CLEARED EXTRA BITS 
005720 (RO) + ;UNDO -(RO) FOR BAD DATA 
000207 PC ;RETURN TO TEST ABOVE 
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013502 
013506 
013510 
013512 


013514 


013522 


013530 


013540 


013542 


013550 


013570 
013574 
013576 


013604 


000004 
012706 
012737 


004737 


012777 
013777 


052777 


052737 


113737 


013705 
060505 
016537 


104001 


001000 
000025 


042620 
000001 
002100 


043312 


000001 


000100 


0433512 


003201 


047624 
001630 


MACY11 30A(1052) 
T24 


002032 


166164 
166136 


166116 


003204 


002135 


042270 


€ 3 
27-JUL-78 12:41 PAGE 58 
CONTROL AND STATUS 2 (RHCS2) = ‘CLR’ 


SCOPE 
MOV AMSTACK ,SP ;RESET STACK 
MOV MTTNO,@A#TSTNM =; THIS SAVES TEST NUMBER 


JSR PC ,a#CLDISK ;INIT AND SET UP GENERAL CPU/DEVICE 
sREGISTER ut wee AND UNIT NO. 

MOV ADMD , ARHMR sSET DIAGNOSTIC MODE 

MOV @APKACK,@RHCS1 LOAD ‘PACK ACKNOWLEDGE COMMAND'’ INTO RHCS1 

3 *SAVE REGISTERS FOR COMPARISON AFTER 'GO" IS ISSUED 

JSR RO, @4#SAVER _ 


TO 
;NUMBER OF REGISTERS SAVED 


BiS #G0,@RHCS1 ISSUE ‘GO" TO PACK ACKNOWLEDGE COMMAND 


;*CHANGE SAVED REGISTERS TO ng VALUES 
BIS AVV ,Q@AREINTO+30 ;SAVED RHDS1 


;*AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
:*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
;*BE DONE 
RO, @4SAVER SAVE 

7 FROM 

;NUMBER OF REGISTERS SAVED 
;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
+ *OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @ARE INTO+25 ,@AWRFROM+25; SAVE UPPER RHAS 


:*COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
‘WITH AFTER GO 
JSR RO. a#COMPAR : COMPARE 
TO :GOOD BUFFER 
;TEST BUFFER 
*RETURN FOR ERROR 
*RETURN FOR GOOD COMPARISON 
AFERWORD R5 :GETTING READY TO INDEX 
R “DOUBLE ERROR 
Rie -2(R5),@AREGADR ;FAILING REGISTER ADDRESS 
: IMPROPER REGISTER CHANGE 


AFTER PACK ACKNOWLEDGE COMMAND 
;WITH GO IS GIVEN 


SEQ 0057 
SEQ 0056 


oO 
N 
DD 


RIA AR IRA AAA AAAI AAA AIA IAI AIA IAI AIAIAIAIAIAINIAIAIAININIAIRIAININIIOAIINIAD 
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2532 013606 000207 RTS PC ;RETURN TO COMPARISON 
2534 013610 2s: CONTINUE WITH THE NEXT TEST 


2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
a 
i 





G 5 
CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL-78 12:41 PAGE Ost SEQ 0059 
CZRJGC.P11 26-JUL-78 10:10 T25 PACK ACKNOWLEDGE COMMAND T SEQ 0058 


ASTACK , SP RESET STACK 
000026 MTTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 
042620 PC ,@4CLDISK INIT AND SET UP GENERAL CPU/DEVICE 
SREGISTER CORRESPONDENCE 


:*FILL ALL POSSIBLE REGISTER BITS WITH ONES 


012777 177777 #177777,@RHWC  ;WORD COUNT REGISTER GETS 177777 
HBA  :BUS ADDRESS REGISTER GETS 177777 
SCONTROL AND STATUS 2 GETS 177430 
‘CONTROL AND STATUS REGISTER 1 GETS 21476 
SERROR REGISTER] GETS 177777 
[DESIRED SECTOR TRACK 
#177777,@RHER2 :ERROR REGISTER 2 
#16277. @RHOF [OFFSET REGISTER 
#777 [DESIRED CYLINDER 
Eee SRHER3 TERROR REGISTER 3 
000001 #DMD , ARHMR “MAINTENANCE REGISTER 
013732. 012777. 177777 165720 #177777,@RHMR :MAINTENANCE REGISTER 


; *BEF ORE gif = REGISTERS IN READ INTO BUFFER 
013740 004037 043312 JSR RO, a4 3; SAVE 

001632 HWC 

003154 REINTO M 
013750 000021 17. ; NUMBER 


3*GIVE RESET AND REINSTATE UNIT NUMBER 
013752 000005 RESET 


013754 004737 055176 JSR PC ,@#$TKINT INITIALIZE TK 
013760 053777 001774 165650 BIS @FUNIT ,A@RHCS2 


Fee ORIGINAL SAVED REGISTERS TO EXPECTED VALUES AFTER RESET 
CLR @ARE INTO+2 AR SA 


:CLE VED RHBA 
@AUNIT ,~ (SP) 4-4 UNIT NUMBER FRO SAVED RHCS2 
MIR, (SP) : INC . be 
(SP) +,a@#REINTO+4- SAVED CS2 
003162 #DVAIRDY!76, QAREINTOSG zSAVED RHCS1 


LALA AAWWWWWAWAAWAANAAAAAAAAA 


003172 


EINTO+24 7 SAVE 
012737 003202 #400, @ARE INTO+26; SAVED RHMR 


;*CHANGE RHDS1 WITHOUT CHANGING PROG BIT 
014050 013746 003204 MOV @AREINTO+30,-(SP) ;GET RHDS1 

014054 042716 176777 #*CPROG, (SP) CLEAR EVERYTHING EXCEPT PROG 

014060 052716 000700 #700, (SP) :SET EXPECTED BITS ~ ‘DPR’, "DRY' & ‘vv" 


014064 012637 003204 : (SP) +, @#REINTO+30;SAVED RHDS1 
014070 005037 003212 @ARE INTO+36 SAVED RHEC1 
014074 005037 003214 @ARE INTO+40 ;SAVED RHEC2 
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;*AFTER RESET, SAVE REGISTERS FOR COMPARISONS TO BE DONE 
043312 JSR RO, @4SAVER ; SAVE 
RHWC 7 FROM 
WRF ROM 3:70 
17, 7 NUMBER 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113737 003201 002135 MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


ie yen tdiw. BEFORE RESET WITH REGISTERS AFTER RESET 
004037 043514 JSR RO, @#COMPAR ; COMPARE 

003154 :GOOD BUFFER 

poche TEST _— 


00002 ° ; NUMBE 
014140 ;RETURN FOR ERROR 
014140 ; 

014160 RETURN FOR GOOD COMPARISON 


013705 047624 : @#ERWORD ,R5S GETTING READY TO INDEX 
060505 R5,R5 :DOUBLE ERROR WORD 
016537 001630 042270 MO RHWC=2(R5) ,@AREGADR ; FAILING met ty ADDRESS 
014154 104001 1 ;REGISTER CONTENTS AFTER 
7A RESET THAT IS AN 
[UNIBUS INITIALIZE CAUSED 
;AN_IMPROPER REGISTER CHANGE 


014156 000207 RETURN TO COMPARISON 
014160 : ;RETURN TO POINT ON GOOD COMPARISON 


WWWWWWWWWWWNWW WW WWWWWWNAW AWWW AAA AWWA AANA A AAA AAA AAA AAA 
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-SBTTL SILO TESTS 


014160 : 
001000 MO #STACK, SP :RESET STACK 
000027 002032 ATTNO,@ATSTNM :THIS SAVES TEST NUMBER 
002040 @4#RH70 ‘TEST FLAG FOR RH70 CONTROLLER 

30$ ‘IF FLAG = 1, THIS TEST IS SKIPPED 
014336 TST30 : JUMP TO NEXT TEST 
042620 PC, CLDISK SCLEAR DISK AND LOAD R'S 


165412 @RHDB , RO READ FROM EMPTY SILO 
:GET UNIT NO. IN 
:GET DATA LATE BIT AND IR 
. APUTREG SAVE REGISTERS 
(SP)+, aACS2 31S DATA LATE BIT UP? 
1$ IF YES BRANCH 
001122 R2,@#$BDADR :1F NOT STORE FAILING REG. 
11 HAVE DLT 





014244 


:D 
oo OTHER BITS SHOULD 


0 
014246 022737 144290 001714 18: #SC!TRE!RDY!DVA,@4CS1 ;1S SPECIAL CONDITION, TRANSFER ERROR 
AND READY UP? 
014254 001403 2$ 31F YES BRANCH 
014256 010137 001122 R1,@4$BDADR :1F NOT STORE FAILING REG. 
014262 104011 11 >RHCS1 DID NOT HAVE a DVA 
TRE AND RDY. AFTER 
[READ FROM EMPTY SLO ONLY 
; THESE BITS SHOULD BE UP 
ALL OTHERS SHOULD BE 0 
014264 012711 040000 : ATRE,@R1 ;CLEAR ERROR BITS BY MOVING 
ZONE INTO TRE en RHCS1 
014270 004737 042224 PC ,@#PUTREG Ti REGISTERS 
014274 022737 004200 001714 #RDY!DVA,@#CS1 ;ALL BITS BUT RDY AND DVA SHOULD 


:BE 0 
014302 001403 3$ oo IF YES 
014304 010137 001122 MOV R1,@4$BDADR TORE FAILING ADDRESS 
014310 104011 11 ‘AFTER A ONE IN TRE ONLY 
ny AND DVA SHOULD BE SET IN 


014312 013746 001774 : @AUNIT ,~ (SP) 


;RHCS2 SHOULD HAVE IR AND UNIT ONLY 
T SBRANCH IF YES 

001122 R2,@4$BDADR STORE FAILING ADDR 
11 SAFTER A ONE IN TRE ONLY 


3 
3 
x, 
i 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
| 
3 
bY 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
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001900 MO A#STACK, SP ;RESET STACK 
000030 V MTTNO,@A#TSTNM = ;THIS SAVES TEST NUMBER 
002040 @4RH70 ZTEST FLAG FOR RH70 CONTROLLER 
30$ z1F FLAG = 1, THIS TEST IS SKIPPED 
014564 TST31 [JUMP TO NEXT TEST 
042620 PC,CLDISK CLEAR REGISTERS LOAD R‘S 


@FUNIT ,~ (SP) 
#IR, (SP) 
;SAVE REGISTERS 
(SP)+,a#CS2 ;IR SHOULD BE SET ‘OR'’ RESET 


1$ 
R2,a4$BDADR FAILING REGISTER Ts 
014416 11 SRHCS2 DOES NOT HAVE I 
SET, UNIT NO. SET AND 
TALL OTHER BITS 0 
014420 165204 1$: @RHDB LOAD DATA BUFFER (SILO) WITH 0 
165176 #-1 , @RHDB ;LOAD SILO WITH ALL ONES 
001636 014442 @ARHCS2 ,a#2$ ZADDRESS OF RHCS2 


WAIT TRAP 
SADDRESS OF RHCS2 


@AUNIT ,-(SP) 3 

#OR!IR, (SP) 31R AND "OR" 

PC ,@#PUTREG : SAVE E REGISTE RS 
(SP)+,a#CS2 31R AND ‘‘OR"* SHOULD BE SET 


4$ 
R2,@4$BDADR 7 SAVE, poy? ADDR. FAILING REG. 
014474 11 7‘OR’’ IN RHCS2 SHOULD BE 

:SET_ TOGETHER WITH IR AND 


UNIT NO 
014476 165126 : @RHDB , RO ZSAVE SILO DATA SHOULD BE 0 
165122 @RHDB ,R5 SAVE SILO DATA SHOULD BE ALL 1 
000000 #0,RO FIRST WORD 0? XYZ DO MORE TEST 
5$ BRANCH IF YES 
014514 001124 @4S$GDDAT :GOOD DATA 


014520 001126 RO, @#$BDDAT BAD DATA 

014524 001630 042270 @4RHDB,@#REGADR ;SAVE RHDB FAILING REG. 

014532 104001 1 sSILO DID NOT HAVE THE FIRST WORD 
70°" WHEN ‘OR'' WAS SET 


177777 : ‘SECOND WORD ALL ONES? 
$731 SBRANCH IF YES 
177777 001124 : \ : GOOD DATA 


001126 
001630 042270 @ARHDB,a#REGADR SAVE RHDB FAILING REG. 
014562 104001 1 :SILO DID NOT HAVE THE SECOND 
:WORD OF ALL ONES WHEN ‘OR’ 


(ALAA AAA AWA AAA AAA AAA AAA AA AAA AAA AAA 
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TST31: 
000031 002032 MO A#TTNO,@4TSTNM : THIS SAVES TEST NUMBER 
002040 a4RH70 ;TEST FLAG FOR RH70 CONTROLLER 
30$ TIF FLAG = 1, THIS TEST IS SKIPPED 
015024 TST32 :JUMP TO NEXT TEST 


051422 #SILOTB,RO ; TABLE POINTER 
000103 #67. ,R5 ; TER 


; COUNTE 
aaa S COUNT TOTAL TABLE 


1$ BRANCH IF NOT COMPLETELY CLEAR 
a -@4CLDISK CLEAR ALL REG. 


; COUNT 
LOAD SILO WITH COUNT FROM 0 TO 65 
NEXT COUNT 

:1S 7 Sk DONE ? 


: SAVE, REGISTERS 
(SP)+, -@4CS2 oh “as BE SET IR RESET 


BRANCH IF _YES 
R2,a4$BDADR 7 SAVE, RACs? nad FAILING REG. 
11 7"‘OR'' WAS NOT SET, IR WAS NOT 
@4ERFLGS SRESET AFTER SILO WAS FULL 
> ge iat ;POINTER 


#66., 
@RHDB , (RO) + 
R5 


; COUNT 
4$ ;BRANCH IF 66 NOT DONE 
+ gt Sai sPOINTER 


20 


-(SP) 
{37> .<naoe 
-(RO) ,aA#SBDDAT ;BAD DATA 
(SP) ,@#SGDDAT GOOD 


DATA 
042270 FAILING REG. 
) iIS THIS FIRST RERROR? 
F BRANCH 


NOT 
“THESE TWO ERROR CALLS ARE FOR 
BRANCH TO AVOID feng tty y NEXT ERROR 


BRANCH IF GOOD 


014772 


READOUT IS I 
:"'SILOTB" TO THE NEXT 65 


DS. 
014774 ¢ (RO)+ INCREMENT (RO) 
ARE FURTHER COMPARES TO 
014776 017746 


@SWR ,= (SP) ;BE DONE 
015002 042716 #*CSWO7!SWO8,(SP) ;ONLY KEEP SW7 AND SW8 
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022726 000200 #SWO7, (SP) + ;TEST SwO07 
001403 10$ 31F NO MORE COMPARE THEN BRANCH 
“« WORD 


COUN 
;BRANCH IF 66 NOT COMPLETE 
015022 : ;POP STACK 


ao 
eee sealer eal al al altel tal ralratatratatratcalralatatatasat ater ater atatat at at ater eter.atatat af.et-etet.4t.0}.0f.01.0.07.0}.0t 01 67.014: 2 
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O° 
MN 
po] 
qj 


015024 TST32: 
000032 002032 MO #TTNO,a#TSTNM =; THIS SAVES TEST NUMBER 
002040 a4RH70 :TEST FLAG FOR RH70 CONTROLLER 
30$ :1F FLAG = 1, THIS TEST IS SKIPPED 
015150 TST33 ‘JUMP TO NEXT TEST 
042620 PC, a#CLDISK “CLEAR DISK REG. 


RO ZCLEAR RO 
: RO sADD 1 
164546 RO, @RHDB “LOAD SILO 
000103 #67. ,RO 767 DONE? 
2$ ‘BRANCH IF YES 


BR 1$ :NO SO BRANCH 
042224 : PC ,@4#PUTREG SAVE REGISTERS 


KURURURRORORS RORY 


100000 001712 ADLT ,a#CS2 :DLT SET? 
3$ :BRANCH IF YES 
00112 + @4SBDADR FAILING ADDRESS RHCS2 
SDATA LATE DID NOT SET AT 67TH. 
NPUT TO SILO 


164510 001126 : @RHDB , a4 $BD _ ; 
000001 001124 #1 ,a#SGDDAT OOD DATA 
001124 001126 @ASGDDAT ,a#SBDDAT ; COMPARE 
TST33 BRANCH IF GOOD 
001630 042270 @ARHDB,@#REGADR ;FAILING REG. RHDB 
12 [WORD IN RHDB CHANGED 
AFTER THE 67TH INPUT. 
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015159 000004 TST33: 


015152 012737 000033 002032 #TTNO, a#TSTNM THIS SAVES TEST NUMBER 

015160 002040 a4#RH70 “TEST FLAG FOR RH70 CONTROLLER 
015164 30$ IF FLAG = 1, THIS TEST IS SKIPPED 
015166 000137 015450 TST34 S JUMP TO NEXT TEST 

015172 042620 PC, a#CLDISK “CLEAR DISK 


015176 001774 @AUNIT ,=(SP) GET UNIT _NO. 
015202 000100 


SET INPUT READY 
042224 7SAVE REGISTERS 
001712 (SP)+,aa#cS2 SIR SHOULD BE SET ‘‘OR'’ CLEARED 
1$ ;BRANCH IF GOOD 
001122 MOV R2,@4#$BDADR FAILING REGISTER RHCS2 
015224 11 SRHCS2 DOES NOT HAVE IR SET 


SAND ALL OTHER BITS 0 
015226 001630 : @4RHDB , RO ed a RHDB ADDRESS 
005001 R1 


R1,aRO 0 THEN 1 THEN 2 THEN 3 


; IN RHDB 
R1 ; INCREMENT DATA 
#4,R1 71S 4 DONE 


2s ;BRANCH IF NOT 
015256 mo GARHCS? ,a#3$ A 


WAIT 
0 {RHCS2. ADDRESS 
;WAIT ON OR. 
PC ,@4CLDISK SCLR_IN RHCS2 
@AUNIT ,- (SP) UNIT NO. 


#IR, (SP) . 
PC, a#PUTREG ;SAVE REGISTERS 
(SP)+ aaCS2 IR SHOULD B BE SET 0’ '=0 


BRANCH IF GOO 
. FAILING REGISTER wees 
015314 11 SRHCS2 DOES NOT HAVE IR SET 
zAND ALL OTHER BITS 0. 
015316 0137 : :RO HAS RHDB ADDRESS 
000004 #4 ,aRO ;LOAD 4 IN SILO 
7SAVE RHCS2 
READ THE 4 IN SILO 
zREAD Bite TO GET DLT 
3SAVE RHCS2 
; TEST FOR OR_IN RHCS2 
6$ ZIF OR IS NOT SET BRANCH 
000004 cg” 7SILO 4 IS NOW COMPARED 


042270 RO, @#REGADR :SILO ADDRESS 
000004 001124 #4 , AASGDDAT = GOOD DATA 
015364 001126 R5 ,a@#$BDDAT DATA 
015370 104001 1 [SILO DID NOT CONTAIN WORD 
[PUT IN AFTER ‘‘OR'' WAS UP 
015372 ; R3 31S IT ZERO BECAUSE SILO 
71S DESTRUCTIVE READ 





CZRJGCO,RPO4/5/6 DSKLS etry. 


CZRJGC.P11 26-JUL-78 1 
015374 


015412 


015414 


015446 


001126 


100000 


001774 
100300 
001124 
001126 
042270 


MACY11 30A(1052) 
133 S 


6$ 

RO, @4#RCGADR 
@4SGDDAT 
engtaancss 


ADLT,R4 
TST34 
-(SP) 


@FUNIT ,- 
#DLT!OR!IR, (SP) 
(SP) +, a#SGDDAT 
R4 , aASBDDAT 

- gatas 


B 6 
27-JUL-78 12:41 PAGE 68 
ILO TEST 5 


BRANCH IF GOOD 
SILO ADDRESS 

;GOOD DATA 

;BAD DATA 

SILO SHOULD BE ZERO 


s;AFTER THE ONE WORD + IN 
;HAS BEEN TAKEN OUT 
2 SILO IS A DESTRUCTIVE READ 


“BRANCH IF DLT SET 
2GET UNIT NO 


GOOD DATA 


BAD DATA 
;RHCS2 ADDRESS 
DATA LATE ERROR 





CZ 
CZ 
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-SBTTL MORE REGISTER TESTS 


015450 000004 TST34: 


015452 012737 000034 002032 ATTNO,@4TSTNM + THIS SAVES TEST NUMBER 
015460 002040 a4RH70 TEST FLAG FOR RH70 CONTROLLER 
30$ HIF FLAG = 1, THIS TEST IS SKIPPED 
015606 TST35 :JUMP TO NEXT TEST 
001000 MSTACK, SP RESET STACK 
015476 004737 042620 PC,CLDISK CLEAR DISK REG. 


015502 003566 #3566 ,aR1 ;LOAD RHCS1 WITH ANY NUMBER 
015506 R1,~(SP) oo READY TO FORM ODD BYTE 
(SP) P NOW HAS ODD BYTE FOR RHCS1 
000005 #5 ,a(SP)+ ;MOVE 5 INTO ODD BYTE FOR RHCS1 
001126 aki , a#SBDDAT TEST DATA 
006766 001126 #2566!DVA!RDY, avSBDDAT ; “faa HAVE 6766 


; BRANCH 
006766 001124 13566! DVA!RDY, arScDDAT ;GOOD DATA 
042270 R1,@4REGADR FAILING REGISTER RHCS1 
1 A NUMBER INTO 


MOVING 
ODD BYTE OF RHCS1 GAVE 
WRONG RESULTS 


015546 000032 : 32, ari ;MOVE INTO EVEN BYTE 
001126 @HSBDDAT =: TEST DATA 
006632 001126 £3485! DUA ROY. a#SBDDAT RHCS1 SHOULD HAVE 6632 
TST 36 =DO NEXT RH11 TEST IF 
006632 001124 #2432 !DVA!RDY, aw$GDDAT :GOOD DATA 
042270 R1, aAREGADR -FAILING REGISTER RHCS1 
1 ‘MOVING A NUMBER INTO EVEN 
‘BYTE OF RHCS1 GAVE WRONG 
“RESULT 


015602 015726 ;SKIP RH70 TEST 


015544 
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NN 
Se eo | 


015606 000004 


015610 012737 002032 MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
015616 012706 AMSTACK, SP RESET STACK 
015622 004737 PC,CLDISK CLEAR DISK REG. 


015626 012711 #3566,aR1 ;LOAD RHCS1 WITH ANY NUMBER 
[GETTING READY TO FORM ODD BYTE 
SP NOW HAS ODD BYTE FOR RHCS1 
1127 000005 #5 ,a(SP)+ :MOVE 5 INTO ODD BYTE FOR RHCS1 
011137 @R1 , A#SBDDAT STEST DATA 


022737 001126 #566!DVA!RDY. ah “iF 6000 HAVE 4766 


$ 
001124 #566!DVA!RDY,@ASGDDAT ;GOOD DAT 
MOV R1,@4REGADR FAILING REGISTER RHCS1 
015670 10400 1 :MOVING A NUMBER INTO 
ODD BYTE OF RHCS1 GAVE 
WRONG RESULTS 


aft oft oft ode 248 oft off ode oft oft ode 2d 


015672 : ° 7MOVE thy EVEN BYTE 

a4$BDD TEST DAT 
001126 #432 1DVAIRDY, @#SBDDAT vRHCSI SHOULD HAVE 4632 
S136 CH IF GOOD 


; BRAN 
004632 001124 £232" DVAIRDY, awsGbDAT :GOOD DATA 
042270 R1,@4#REGADR ;FAILING REGISTER RHCS1 


015724 1 :MOVING A NUMBER INTO EVEN 
;BYTE OF RHCS1 GAVE WRONG 
RESULTS 
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015726 000004 TST36: SCOPE 


015730 012737 000036 002032 ATTNO,@ATSTNM =; THIS SAVES TEST NUMBER 
015736 005737 002040 a4yRH76 TEST FLAG FOR RH70 CONTROLLER 
30$ IF FLAG = Ve THIS TEST IS SKIPPED 
000137 016104 TST37 JUMP TO NEXT TEST 
015750 042620 PC, a#CLDISK “GIVE INIT & SETUP REGISTER CORRES 


015754 #177000, (R2) = LOAD RHCS2 
2,-(SP) ;GETTING READY FOR ODD BYTE 
7SP NOW HAS ODD BYTE FOR RHCS2 
;CLERR RHCS2 ODD BYTE 
3GET UNIT NO. 
; INPUT READY AS IT IS SET 
$8 TEST DATA 
(SP)+,a#SBDDAT COMPARE TO SEE THAT 
:"‘CLRB’* DID CLEAR 


1$ 
001774 001124 @4UNIT, @#SGDDAT 
000100 001124 MIR, @A#SGDDAT ;GOOD DATA 
042270 R2, @A#REGADR ;FAILING REGISTER RHCS2 
CLEARING ODD BYTE OF RHCS2 
GAVE WRONG RESULTS 
013746 001774 
052716 
052712 0000 E,aR2 ;HAVE UPE AND MPE IN RHCS2 
;BESIDES UNIT SELECT 
112612 (SP)+, ean s;MOVE INTO EVEN BYTE OF RHCS2 


TEST DATA 

022637 001126 (SP)+,a#$BDDAT COMPARE TO SEE THAT MOVB DID 
;MOVE EVEN BYTE ONLY 

001403 TST37 CH IF 


; ;BRAN GOOD 
010237 042270 MO R2,@4REGADR :FAILING | REGISTER RHCS2 
016102 104001 1 :MOVING A NUMBER INTO EVEN 
SBYTE OF RHCS2 GAVE WRONG 
;RESULTS 
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000004 


012737 000037 002032 ATTNO,@A4TSTNM =; THIS ear TEST NUMBER 
0127 ASTACK, SP RESET STACK 
af Po ae CLEAR DISK REGISTERS 
R4 3R4 NOW IS WORD COUNT REGISTER 
025252 735288. aR4 LOAD RHWC 

R4 -(SP) GETTING READY TO FORM ODD BYTE 

(SP) :SP NOW HAS ODD BYTE FOR RHWC 
oa Ea he eneay” MOVE 37 on INTO ODD BYTE OF RHwC 
177652 001126 mi7?850, aWSBDDAT: :COWPARE TO SEE IF MOVB DID OK 


$ 

177652 001124 #177652, a#$GDDAT ;GOOD DATA 

042270 MOV R4, @AREGADR :REGISTER FAILING RHWC 
016172 1 ;MOVING INTO ODD BYTE OF RHWC 

[GAVE WRONG RESULTS 

016174 000123 : +e aR4 ;MOVE INTO EVEN BYTE OF RHWC 

001126 @R4 , @ASBDDAT TEST DATA 

177523 001126 m77523, a@4$BDDAT 

CH IF GOOD 


a oft oft oft oft oft oft ods of 


ambi ot 


740 
177523 001124 #177523, awSGDDAT’ GOOD DATA 
042270 oe @AREGADR :REGISTER FAILING RHWC 


016226 
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oO 
Ns 
DD 


016230 


016232 001000 AMSTACK , SP RESET STACK 
0162 000040 002032 MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
042620 PC,CLDISK 
001634 @4RHBA, R4 3;R4 HAS ADDRESS OF RHBA 
025253 #25253, @R4 ;LOAD RHBA 
R4, -(SP)  ;GETTING READY FOR ODD BYTE 
(SP) 7SP HAS ODD BYTE ADR. OF RHBA 
ae he ahcaT 1 a — OF RHBA 


2 TEST DAT 
177652 001126 m7?e50, aASBDDAT: jag i 


$ 
177652 001124 #177652, a#$GDDAT: GOOD DAT 
042270 R4, @4REGADR OPAILING. REGISTER RHBA 
016316 1 ROVING INTO ODD BYTE OF 
RHBA GAVE WRONG RESULTS 
016320 000125 : #125, @R4 


001126 @R4 , AASBDDAT TEST DATA 
177524 001126 #1 79894. @4#$BDDAT 
141 CH IF GOOD 


TST4 ; ;BRAN 
177524 001124 #177524 ,a#$SGDDAT: GOOD DATA 
042270 R4, @#REGADR ;FAILING REGISTER RHBA 
016352 1 :MOVING INTO EVEN BYTE OF 
;RHBA GAVE WRONG RESULTS 


wet oft oft off abe oft ade ote ot ott ott ont ott ott add oft oft oft abt oft oft oft of Call alt ai alt alt ot LN All all Cl Lal A LIA AAA 
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ale) 
NSN 
zw 


.SBTTL DCL COMMAND TESTS! Lat 


FOUR GENERAL REGISTERS WILL BE RESERVED FOR HARDWARE 
R1=RHCS1 CONTROL AND STATUS1 

R2=RHCS2 CONTROL AND STATUS? 

R3=RHDS1 DRIVE STATUS 1 

R4=RHER1 ERROR REGISTER1 


WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS 
APPROPIATE SAVING MUST BE DONE 


ERROR REGISTER #01 (RHER1) TEST 
BIT #1 (ILLEGAL REGISTER) CANNOT BE TESTED ON PDP11 THIS BIT 
IS FOR PDP10 USE ONLY 


016354 : SCOPE 


016356 AMSTACK , SP RESET STACK 

002032 MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
PC ,a@#CLDISK 

163256 #DMD , ARHMR 
@ATMPILL GET READY TO MAKE ILLEGAL FUNCTION 
#FUTABL .RO ;LOAD FUNCTION CODE TABLE START 
#17. ,R5 COUNTER (16 GOOD FUNCTIONS) 
QATMPILL,(RO)+ ;IS THIS A LEGAL FUNCTION CODE? 
3$ INO - DECR. FUNCT. CODE CTR 

002022 #2, Q4TMPILL 7YES MAKE NEXT FUNCTION CODE 

BR 1$ ZTEST NEXT FUNCTION CODE 

R5 SMAKE NEXT CODE IF 1ST 16 


2$ 
002022 1 ae , OA TMP I LL 


YES =~ EXIT 
002104 pa ee as ILLEGL: NO — PEST THE TLLEGAL FUNCTION 
002022 #2, a#TMPILL, ; TEST NEW FUNCTION CODE NEXT TIME 


: PC ,a#CLDISK 
163162 #DMD , @RHMR SET DIAGNOSTIC MODE 
@#ILLEGL,@R1 fe FUNCTION — RHCS1 
001110 #4$ ,AASLPERR ERROR RETURN POIN 
PC ,a@#PUTREG foe REGISTERS 
aVER1 ; THERE SHOULD NOT BE ANY ERROR YET 
5$ ;CONTINUE IF RHER1 STILL = 0 
001122 R4 ,Q#$BDADR :FAILING REGISTER ADDRESS RHER1 
016526 11 ALTHOUGH AN ILLEGAL FUNCTION 
HAS BEEN MOVED INTO RHCS1 
NO ERRORS SHOULD SHOW TILL 


(att atl all aft oft oft oft off otal at alt aft aft af Cal Cal CA Lal CA LA Lal Cal Lal Lal CA Lal Cl LW CA A A VW WW AAA AA AWW WWW AANA 
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:GO IS SET RHER1 SHOULD BE 
;ALL ZEROS 
016530 052711 000001 : :GO IN RHCS1 
0165 004737 + SAVE REGISTER S 
001716 #ILF ,a#ER) Siete FUNCTION BIT SHOULD BE SET 
6 T IS = CONTINUE 
R4, @A#SBDADR “FAILING REGISTER ADDRESS RHER1 
016554 11 ; ILLEGAL FUNCTIOM DID NOT 
7SET ON AN ILLEGAL FUNCTION 
sEXECUTION, THE ILLEGAL FUNCTION 
;BEING EXECUTED IS IN RHCS1 


016556 013746 001736 : aADS1, pe GET RHDS1 

016562 042716 001000 #PROG, (SP) :MASK PROG 

016566 022726 140700 WATATERR! VV DPR! DRY, (SP)+ 
ATTENTION (BIT 15) 
[VOLUME VALID (BIT 6) 
;COMPOSIT ERROR (BIT 14) 
:DEVICE READY (BIT 7) SHOULD 
:BE SET ON RHDS1 

016572 001404 7$ THEY ARE =~ CONTINUE 

016574 001662 001122 @ARHDS1, awSBDADR’ FAILING REGISTER ADDRESS RHDS1 

016602 11 ;FOLLOWING BITS SHOULD BE SET 
WITH AN ILLEGAL FUNCTION 
ATTENTION (BIT 15) 


Oo 
™ 
» 


WWANWWWWWNANWWG 
aad ch cal cad aa a od a en cd 
ed aed ad cd aed a ae cl ed 

DNRARWY—OS 


;MEDI 
:DEVICE READY (BIT 7) 


045060 : PC ,@#MIDDLE tate} A WRITE HEADER AND 
A_ COMMAND WITHOUT 
CLEARING THE ERRORS 
[USING ‘MIDDLE’ SO THAT 
;1T WILL COME BACK BEFORE 
+a, Ag TO FIND OUT ITS 


:STA 
010237 016616 R2,a410$ :MOVE RHCS2 ADDRESS 
104415 WAIT FOR ‘MXF* BIT 
000000 : 0 “ADDRESS OF RHCS2 
001000 


004737 042224 : PC ,@#PUTREG SAVE REGISTERS 


032737 040000 001714 ATRE ,aACS1 ; TRANSFER ERROR og 14) RHCS1 - *TRE® 
SSHOULD SET DUE TO 'MXF 

001003 13$ :1T IS = CONT TINUE. 

010137 001122 MOV R1,@4$BDADR SFAILING REGISTER RHCS1 

104011 11 ; TRANSFER ERROR (BIT 14) RHCS1 - *TRE' 
[SHOULD BE SET DUE TO 'MXF" 
;LOCAL SCOPE RETURN POINT 


000660 : ;GO BACK & TEST NEXT FUNCTION CODE 
000240 


(alUal Lal Cal Cal Lal Cal Cal Cal Cal Lal Cal Lal Cal CA Cal Lal Cal CL NA A AE AAA AAW OWA OW AWA AAW WWW AA AAA 
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000004 : SCOPE 
012706 001000 MOV ASTACK , SP RESET STACK 
012737 000042 002032 MOV ATTNO,@#TSTNM =; THIS SAVES TEST NUMBER 


004737 042620 JSR PC ,@#CLDISK INIT AND SET GENERAL REGISTERS 
;*FILL ALL POSSIBLE BITS WITH ONES 


012777 177777 162734 #177777, @RHWC  ;WORD COUNT REGISTER GETS 177777 
#177777,@RHBA BUS ADDRESS REGISTER GETS 177777 
#17437,@RHDST  ;DESIRED SECTOR TRACK GETS 17437 
#16377 , @RHOF OFFSET REGISTER GETS 16277 

162724 #777 ,@RHCA SDESIRED CYLINDER GETS 777 
#A16!A17,-(SP) ;GET BIT 9 AND 8 
@AREADIN, (SP) 
(SP) +, @RHCS1 FILL READ IN PRESET IN RHCS1 
016742 012777 000001 162710 ADMD , ARHMR SET DIAGNOSTIC MODE 


3*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
016750 004037 JSR RO, @4SAVER 7 SAVE 
001632 ; FROM 
003154 :TO 
016760 000021 17. NUMBER SAVED 


;*GIVE READ IN PRESET COMMAND 
016762 052777 162650 BIS #G0,@RHCS1 ; INCLUDE GO TO READ IN PRESET 


; *NOW SAVED os WILL BE ory TO EXPECTED VALUE 
016770 005037 003166 CLR @ARE INTO+12 ;CLEAR SAVED RHDST 
016774 042737 016000 003172 BIC MFMT22!HCI!ECI, -@AREINTO*I6. CLEAR FMT22,HCI,ECI IN 


SAV 
017002 052737 000100 003172 BIS #VV ,QAREINTO+16 ;SET VV_IN SAVED RHOF 
017010 005037 003174 CLR @ARE INTO+20 :CLEAR SAVED RHCA 


;*AFTER A READ IN PRESET COMMAND 
7*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


017014 043312 RO, @4SAVER 7 SAVE 
WC 7 FROM 


:T0 
017024 000021 ;NUMBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
017026 113737 003201 002135 MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
:*WITH AFTER COMMAND 


043514 JSR RO, a4COMPAR ; COMPARE 
RE INTO : GOOD a4 
WRF ROM ; TEST BUFFER 
17. :NUMBER OF REGISTERS 


WANWAWG 


WWW 


3 
3 
3 
3 
3 
3 
3 
3 
3 
: 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
| 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
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017046 017054 ;RETURN FOR ERROR 
017050 017054 7 SAM 
017052 017074 RETURN FOR GOOD COMPARISON 


017054 013705 047624 : @4ERWORD ,R5 GETTING READY TO INDEX 
05 R5,R5 :DOUBLE ERROR WORD 
001630 042270 RHWC=2(R5), @#REGADR FAILING REG. ADDRESS 
017070 1 1 READ IN PRESET CAUSED IMPROPER 
SREGISTER CHANGE 
017072 PC RETURN FOR FURTHER COMPARISONS 


017074 $: NO ERRORS 


oO 
N 
Ww BD 


3 
3 
3 
3i 
3 
3 
3 
3 
3 
3 
3 
3 
3i 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
| 
3 
3 
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017074 
017076 


017172 
017174 


017176 


017210 


017216 


017252 


26-JUL- 


000004 
012737 


113737 


004037 
001706 
002110 
000021 

017236 


017236 
017256 


013705 
060505 


78 10:10 


000043 


042620 
000001 


001733 


043514 


047624 
001630 


MACY11 30A(1052) 
T42 


002032 


162542 


017164 


002135 


042270 


TST43: 
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READ IN PRESET 


AMTTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 


WITH CLR - RHCS2 (BITS) 
-@ACLDISK CLEAR ALL st it Me BITS 

[SET DIAGNOSTIC MODE 

[PUT NOP OPERATI i IN RHCS1 
STARTING ADDRESS OF REG 
STARTING ADDRESS OF WHERE SAVED 

PRHECD-RHWC#2/2, R2 ;NUMBER OF REGISTERS 

a(RO)+, (R3)+ ;SAVE HARDWARE REG 

R2 ; COUNT 


1$ BRANCH IF NOT COMPLETE 
@ARHDS1 ,a#2$ GET ADDRESS OF DRIVE STATUS 
R1,a4#3$ ZGET ADDRESS OF RHCS1 
#G0,aR1 :GO TO RHCS1 
WAIT FOR DRY IN RHDS1 
ADDRESS OF DRIVE STATUS RHDS1 
DRY WILL BE WAITED ON 
WAIT FOR RDY IN RHCS1 
ADDRESS OF RHCS1 PUT HERE BY AN 
sEARLIER MOV 
RDY WILL BE WAITED ON 


;*AFTER A NO OP COMMAND 
z*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR RO, @#SAVER 7 SAVE 
RHWC 


zFROM 
WRF ROM 3:70 
17. sNUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @FAS+1 , AAWRFROM+25; SAVE UPPER RHAS 


:*COMPARE REGISTERS BEFORE NO OP COMMAND 
;*WITH AFTER COMMAND 


RO, a4#COMPAR ; COMPARE 

:GOOD BUFFER 

TEST BUFFER 

SNUMBER OF REGISTERS 
[RETURN FOR ERROR 


3; SAME 

;RETURN FOR GOOD COMPARISON 
@AERWORD ,R5 GETTING READY TO INDEX 
R5, ;DOUBLE ERROR WORD 
"teehee anata sFAILING ys ADDRE 


SS 
7NO OP COMMAND CAUSED IMPROPER 
REGISTER CHANGE 





SEQ 0077 
SEQ 0076 


ana 
NN 
Dw 


WAIN WW AWWW AAW AWWW WWW AWA WA A A A A A A A A a a ad 
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017254 000207 RTS PC RETURN FOR FURTHER COMPARISONS 
017256 : NO ERRORS 


017256 012737 0172 001110 MOV #14$,QM$SLPERR ;SE1T SCOPE LOOP _TO 14$ 
017264 004737 : JSR PC ,@#CLDISK INIT LAST ALL ZERO TEST 
017270 012777 000001 162362 MOV #DMD , ARHMR 3SET DIAGNOSTIC MODE 


;*NOW START WITH ALL ONES IN ALL POSSIBLE REGISTERS 


017276 ARHW ; ADDRESS OF FIRST REGISTER 

017302 0000217 ARNE CSORMUCS2/2., RS ; REGISTERS 

017306 : #177676, a(RO) + ag ONES 

017312 162316 QMUNIT,ARHCS2  :R UNIT NUMBER UNDER TEST 
‘KEEP INTERRUPT DISABLED 

017320 RS 


; COUNT 

6$ BRANCH IF INCOMPLETE 

@ANOPERA, @R1 PUT NOP "akeapht @ my IN RHCS1 
ary” RO STARTING ADDRESS OF REG 

MWC, STARTING ADDRESS OF WHERE SAVED 
PRHECO-RHWC+2/2, R2 ;NUMBER OF REGISTERS 

Stile -(R3)+ ; SAVE Fintan: 


7$ ‘BRANCH IF NOT COMPLETE 
017372 @ARHDS1,a410$ ;GET ADDRESS OF DRIVE STATUS 
R1,a411$ 7GET ADDRESS OF RHCS1 
#G0,aR1 :GO TO RHCS1 
[WAIT FOR DRY IN RHDS1 
SADDRESS OF DRIVE RSTATUS RHDS1 
:DRY WILL BE WAITED ON 
WAIT FOR RDY IN RHCS1 
“ADDRESS OF RHCS1 PUT HERE BY AN 
EARLIER MOV. 
ZRDY WILL BE WAITED ON 


;*AFTER A NO OP COMMAND 
;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


043312 JSR RO, @#SAVER 7 SAVE 
RHWC 


7 FROM 
WRF ROM 370 
017414 000021 17. ;NUMBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
017416 113737 001733 002135 MOVB @4AS+1 , @AWRFROM+25; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE NO OP COMMAND 
:*WITH AFTER COMMAND 


017424 043514 JSR RO, @#COMPAR ; COMPARE 
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001706 wc :GOOD BUFFER 
002110 [TEST BUFFER 
000021 [NUMBER OF REGISTERS 
017444 ;RETURN FOR ERROR 
017444 SAME 
017442 017464 “RETURN FOR GOOD COMPARISON 


017444 013705 047624 : @4#ERWORD ,R5 GETTING READY TO INDEX 

017450 05 R5,R5 DOUBLE ERROR WORD 

017452 001630 042270 MOV RHWC=2(R5), ANREGADR FAILING REG. ADDRESS 

017460 1 1 NO OP COMMAND CAUSED IMPROPER 
SREGISTER CHANGE 

017462 PC [RETURN FOR FURTHER COMPARISONS 


017464 : NO ERRORS 
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B 7 
41 PAGE 81 SEQ 0080 
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ASTACK, SP ;RESET STACK 
ATTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 
042620 PC ,a4CLDISK SET REGISTERS AND CLEAR 


7*FILL ALL POSSIBLE BITS WITH ONES 


012777 177777 #177777,@RHDB + ;BUS ADDRESS REGISTER GETS 177777 
#177777, aRHWC ;WORD COUNT REGISTER GETS 177777 
#177777, @RHBA_  :BUS ADDRESS REGISTER GETS Veeree 
#157010,a@RHCS2 CONTROL AND STATUS 2 GETS 157010 
SCONTROL AND STATUS REGISTER/GETS 1476 
ERROR ag kA 177777 


#177777, @RHERS 
017606 00001 #DMD , ARHMR MAINTENANCE REGISTER 
017614 177777 162036 #177777,@RHMR  :MAINTENANCE REGISTER 


:*THIS SETS BITS FOR ALL PRESENT DRIVES 


017622 002020 @4TOTALAT,RO ;GET DRIVE PRESENT 
005012 aR2 CLEAR RHCS2 AND CARRY BIT 
000010 TER 


; COUN 
SGET BIT INTO CARRY 
[BRANCH IF NO UNIT ON THIS BIT 
177777 SMOVE INTO ERROR myn t hig TO SET ATA 
aR2 3 ae RHCS2 - T NO. 


sc 
BRANCH IF 8 DONE 

CONTINUE THIS ROUTINE 

001774 


MOV P 
157010 #157010, (SP) ;REINSTATE SET BITS 
012612 (SP)+,a@R2 : 


012777 000001 161764 ADMD , ARHMR :SET DMD 
002050 @ADCLEAR, aR1 — CLEAR = 10 INTO RHCS1 
000001 #G0,a8 


001630 #RHDB, RO RO CONTAINS ADDR. OF ADDR. OF REG. 


;*DATA BUFFER REGISTER 


177777 001124 288: #177777 ,@ASGDDAT — DATA FOR ERROR TYPEOUT 
001126 MO a(RO)+ BFSBDDAT :TEST DATA 
177777 001126 #177777 ,@#$BDD : COMPARE DATA 
3$ T BRANCH IF GOOD 
017732 020570 PC ,aWERCLFC ‘JUMP TO ERROR FOR CLR (BIT 5) 
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:*wWORD COUNT REGISTER 
012737 177777 001124 : #177777 ,a#SGDDAT :GOOD DATA FOR ERROR TYPEOUT 
001126 a(RO)+ a#SBDDAT sTEST DATA 
177777 001126 4 77777 ,@#$BDDAT m :COMPARE DATA 


$ ;BRANCH IF GOOD 
020570 PC ,@#ERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 


;*BUS ADDRESS REGISTER 


177776 =001124 : #177776 ,@#SGDDAT ey DATA FOR ERROR TYPEOUT 
001126 @(RO)+,a#SBDDAT ; TEST DAT 
177776 001126 #177776, ,@#$BDDAT "COMPARE DATA 


5 BRANCH IF GOOD 
020570 PC ,a#ERCLFC ;JUMP TO ERROR FOR CLR (BIT 5) 
:*CONTROL AND STATUS 2 REGISTER 


000110 g #110,-(SP) zs INLLUDE IR 
001774 @FUNIT, (SP) SET UNIT NO. 
001124 (SP)+,@#$GDDAT :GOOD mare FOR TYPE OUT 
001126 @(RO)+,a#$BDDAT : TEST DATA 
001124 001126 @ASGDDAT ,a#SBDDAT; COMPARE DATA 

6$ ;BRANCH IF GOOD 
020570 PC ,@#ERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 


:*CONTROL AND STATUS 1 REGISTER 
002000 : @4NUNIT zARE THERE MORE THAN ONE UNIT 
32$ BRANCH IF ONLY ONE UNIT 
104210 001124 tone ,@#SGDDAT: GOOD DATA 


BR 
004210 001124 : #4210, aA#SGDDAT ;GOOD DATA 
013037 001126 : @(RO)+,a#$BDDAT ; TEST DATA 


023737 001124 001126 @4SGDDAT ,@#SBDDAT ; COMPARE DATA 
001402 7 ;BRANCH IF 


GOOD 
004737 020570 PC ,@MERCLFC 7 JUMP TO ERROR FOR CLR BIT 5 
7 IN RHCS2 


1 REGISTER 


012737 000000 : #0 , AASGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
001126 a@(RO)+,a#$BDDAT ; TEST DATA 
000000 #0 ,@#SBDDAT : 


10$ GOOD 
020570 PC ,@MERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 


7 *DESIRED SECTOR/TRACK REGISTER 


020140 012737 017437 001124 : MOV #17437 , @ASGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
020146 013037 001126 MOV @(RO)+,@#$BDDAT ; TEST DATA 
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020152 


020160 
020162 


020210 


022737 
001402 
004737 


012737 


017437 
020570 


000000 
001126 
000000 


020570 


MACY11 30A(1052) 
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001126 


001124 
001126 


D 
27-JUL=78 12:41 
IVE CLEAR 


#17437 ,a#$BDDAT 
11$ 


PC ,@4ERCLFC 
2 REGISTER 
#0 ,@ASGDDAT 


a(RO)+, ae eid 


#0, a#$BDD 
12$ 
PC ,@#ERCLFC 


7 
PAGE 83 


; COMPARE DATA 
BRANCH IF GOOD 
;JUMP TO ERROR FOR CLR (BIT 5) 


+ GOOD ne FOR ERROR TYPEOUT 
;TEST DAT. 


; COMPARE DATA 
BRANCH IF GOOD 
; JUMP TO ERROR FOR CLR (BIT 5) 


SEQ 0082 
SEQ 0081 


7 *OFFSET REGISTER 


020214 116000 001124 : #116000 ,a@#$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 
001126 @(RO)+,@#SBDDAT ;TEST DATA 
116000 001126 #116000 ,a#$BDDAT COMPARE DATA 
13$ BRANCH IF GOOD 
020570 PC ,@#ERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 


;*DESIRED CYLINDER ADDRESS REGISTER 


001124 ¢ #1777, @#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
@(RO)+,a#$BDDAT ; TEST DATA 
001126 #1777 ,@4$BDDAT ;COMPARE DATA 
14$ BRANCH IF GOOD 
020570 PC ,@#ERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 


3 REGISTER 


020270 000000 001124 : #0 ,a@#SGDDAT + GOOD DATA FOR ERROR TYPEOUT 
020276 001126 a(RO)+, ot eats T DATA 

020302 000000 001126 #0, a#$BDD ; 

020310 15$ IF GOOD 

020312 004737 020570 PC ,@#ERCLFC JUMP TO ERROR FOR CLR (BIT 5) 


;*ATTENTION SUMMARY REGISTER 


020316 001124 : @ATOTALAT ,@ASGDDAT; SET ALL BITS OF DRIVE PRESENT IN RHAS 
001124 @4ATTENT, SFSGDDA T 7 CLEAR ONLY WORKING DRIVE BIT 
@(RO) +, a#$BDD ;GET RHAS 
001126 MPB orSGDDAT aw SBDDAT [COMPARE DATA 
16$ BRANCH IF GOOD 
020570 PC ,@#ERCLFC ;JUMP TO ERROR FOR CLR (BIT 5) IN RHCS2 


3 *MAINTAINABILITY REGISTER 
020352 000400 001124 : #400,a4$GDDAT  ;GOOD DATA FOR ERROR TYPEOUT 
020360 001126 a(ROs+, obey :TEST DATA 
020364 000400 001126 0, a#$8DD COMPARE DATA 
020372 17$ [BRANCH IF GOOD 
020374 020570 PC ,@#ERCLFC ;JUMP TO ERROR FOR CLR (BIT 5) 
:*DRIVE STATUS REGISTER 


020400 012737 000700 001124 : MOV #700,@4$GDDAT  ;GOOD DATA FOR PRINTOUT 


d 
4 
4 
4 
d 
d 
d 
d 
d 
d 
d 
4 
d 
d 
4 
d 
d 
4 
4 
d 
4 
4 
4 
4 
4 
4 
4 
d 
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020556 


020562 


020564 
020566 
020566 


020570 
020574 


005720 


000413 


014037 
104001 


001126 
001000 
000700 
020570 


020570 


000000 
001126 
000000 


020570 


000000 
001126 
000000 


020570 


042270 
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001124 
001126 


001124 
001126 


001124 
001126 


001124 
001126 


@(RO)+,=(SP) 

(SP) ,@$BDDAT 

#PROG, (SP) 

#700, (SP)+ 

20$ 

PC ,@#ERCLFC 

TYPE 

GASAVDT , A#SGDDAT 

@(RO) +, a#$BDDAT 

 Sexpjeeamecrnesed 

PC ,@#ERCLFC 
;*SERIAL NUMBER REGISTER 

@ASAVSN , @ASGDDAT 

@(RO) +, a#$BDDAT 

@4SAVSN, @#SBDDAT 

22$ 

PC ,@#ERCLFC 
7*ECC1 POSITION 

#0, @#SGDDAT 

a(RO) +, a#$BDDAT 

#0, a#SBDDAT 

23$ 

PC ,@#ERCLFC 


:*ECC2 PATTERN 
#0 ,@4#SBDDAT 
24$ 
PC ,@#ERCLFC 


3 *LOOK-AHEAD REGISTER 
TST (RO) + 


84 


;GET RHDS1 

s TEST DATA 
:CLEAR PROG BIT 
; COMPARE DATA 


BRANCH IF GOOD 
; JUMP TO ERROR FOR DRIVE CLEAR 


;GOOD DATA FOR ERROR TYPEOUT 


a DATA 


; COMPARE DATA 
BRANCH IF GOOD 
; JUMP TO ERROR FOR CLR (BIT 5) 


;GOOD DATA FOR ERROR TYPEOUT 


TEST DATA 


COMPARE DATA 


;BRANCH IF GOOD 
;JUMP TO ERROR FOR CLR (BIT 5) 


;GOOD DATA FOR ERROR TYPEOUT 

; TEST DATA 

; COMPARE DATA 

[BRANCH IF GOOD 

; JUMP TO ERROR FOR CLR (BIT 5) 


#0, a@#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
@(RO)+,@#$BDDAT ; TA 


IF GOOD 
‘JUMP TO ERROR FOR CLR (BIT 5) 


AS THE LOOK-AHEAD REG. CANNOT BE PREDICTED 
31T IS NOT CHECKED AFTER AN INIT 


;*CURRENT CYLINDER ADDRESS REGISTER 


25$: (RO) + 


26$: 
TST45 


ERCLFC: . —wet,, @#REGADR 


zAS_THE CURRENT CYL REG. CANNOT BE PREDICTED 
;AFTER AN INIT IT IS NOT CHECKED 


BRANCH OVER JSR 


Haye; REGISTER ADDRESS 
:CLR FUNCTION = 10 IN RHCS1 DID 





SEQ 0083 CZR 
SEQ 0082 


oO 
Ns 
wn 


ee ee ee ee a ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee Se eee Oe ee es oe ee eee Se Se eS PY 
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ao 
Ns 
DD 


:NOT CLEAR APPROPIATE BITS 
RA BITS 


020576 005720 (RO) + 
020600 000207 PC “RETURN TO ABOVE PROGRAM 
;OR CLEARED EXTRA BITS 
005720 (RO) + [UNDO =(RO) FOR BAD DATA 
004737 042654 PC ,@ACHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 
104401 062450 ,CPHALT AND THAT NO OTHERS = 1. CANNOT CON- 
000000 ;STOP THE TEST 


Rane RRRR RR RR RRR RRR RRR RRR RRR RRR RRR RRR RRR HRD RHRRHHRHEHRHEHLLEHLHKL LL 
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000004 : 

012706 001000 MO MSTACK SP RESET STACK 

012737 000045 002032 MTTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 

004737 042620 PC ,@#CLDISK zINIT AND SET A GENERAL REG. CORRES. 


UNIT 
012777 000001 161014 #DMD , ARHMR SET DIAGNOSTIC *MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RHLA FROM MOVING 
160774 @RHDST SMAKE DESIRED SECTOR TRACK LEGAL 
002072 160762 @4SEECOM,@RHCS1 + LOAD SEEK COMMAND INTO CONTROLLER 
017746 161014 @RHCC,-(SP) GET CURRENT CYLINDER 


z*FOLLOWING ARE TWO BLOCKS OF CODE TO LOAD RHCA WITH THE PROPER 
;*ADDRESS DEPENDING UPON WHETHER THE DRIVE IS AN RPO6 OR RPO4 


005737 002036 @ARPO6 ;MOVE DRIVE TYPE FLAG TO ITSELF TO TEST 
001416 11$ ; TREAT THE DRIVE AS AN RPO4 


; TREAT THE DRIVE AS AN RPO6 
022726 001456 #814. ,(SP)+ 31S CURRENT CYLINDER SAME AS 814. ? 
0014 9$ BRANCH IF YES TO MAKE RHCA = 813. 
001456 001210 #814. ,Q4$TMPS  ;GET READY TO MAKE RHCA = 814. 
10$ zFILL RHCA 
001455 001210 9%: #813. ,a#STMPS :GET READY TO MAKE RHCA = 813. 


001210 160730 : @4STMPS ,ARHCA MAKE DESIRED CYLINDER 814., OR 813. 
020722 5 14$ SAVE REGISTERS 


; TREAT THE DRIVE AS AN RPO4 
020724 000632 : #410. ,(SP)+ 31S CURRENT CYLINDER SAME AS 410. ? 
001404 12$ BRANCH IF YES TO MAKE RHCA = 409. 
000632 001210 #410.,@4$TMP5  ;GET READY TO MAKE RHCA = 410. 
13$ zFILL RHCA 
000631 001210 12$: #409. ,Q4STMP5  ;GET READY TO MAKE RHCA = 409. 
020750 013777 001210 160674 : @ASTMPS ,ARHCA MAKE DESIRED CYLINDER 410., OR 409. 


3 *SAVE REGISTERS FOR COMPARISON AFTER GO 


020756 004077 043312 3 RO, @#SAVER 7 SAVE 
001632 WC ;FROM 


003154 :T0 
000023 NUMBER OF REGISTERS SAVED 


3:*GIVE GO TO COMMAND 
020770 052777 000001 160642 BIS #GO0,@RHCS1 :GO TO COMMAND 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
020776 052737 000001 003162 BIS #GO,QAMREINTO+6_ ;SAVED RHCS1 


052737 020000 003204 BIS #PIP,Q#REINTO+30 ;SAVED RHDS1 
021012 042737 000200 003204 BIC AMDRY ,AAREINTO+30 ;SAVED RHDS1 
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021020 


021030 


021032 


021146 


113737 


013705 
060505 
016537 


104001 


000207 


052712 
013712 
012777 


042737 


013737 


043312 


003201 


043514 


047624 
001630 


000040 
001774 
000001 


000001 
020000 
000200 
160530 
001210 
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002135 


042270 


160542 


003162 


003220 
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;*AFTER GO HAS BEEN GIVEN FOR SEEK COMMAND 
7*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


;*BE DONE 


JSR RO, @#SAVER 3 SAVE 
RHWC 


;FROM 
WRF ROM 2t0 
19. ;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB @ARE INTO+25 ,A@AWRFROM+25; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE SEEK COMMAND 
;*WITH CONTENTS AFTER GO IS ISSUED 


JSR RO, @4COMPAR >; COMPARE 
;GOOD BUFFER 
;TEST BUFFER 


; NUMBER 

;RETURN FOR ERROR 

7; SAME 

;RETURN FOR GOOD COMPARISON 
@FVERWORD ,R5 ;GETTING READY TO INDEX 
R5.R : DOUBLE ERROR WORD 
RHWC-2(R5), @AREGADR sFAILING REGISTER ADDRESS 


1 ; IMPROPER REGISTER CHANGE 
AFTER SEEK COMMAND 
;WITH GO IS GIVEN 

PC RETURN TO COMPARISON 


:*NOW GIVE INIT AND GET GO AND PIP DOWN 


ACLR,AR2 3RH_ INITILIZE 

GAUNIT ,AR2 sREINSTATE UNIT NUMBER 

ADMD , ARHMR SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
ZAND HOLDS RHLA FROM MOVING 


3 *CHANGE REGISTERS TO EXPECTED VALUE 


#GO,QMREINTO+6_ ; SAVED RHCS1 
#PIP,@AREINTO+30 ;SAVED RHDS1 
#DRY ,AAREINTO+30_ ;SAVED RHDS1 
@RHLA, @#RE INTO+42;SAVED RHLA 
QASTMPS ,AAREINTO+44 ; SAVED RHCC 


7*AFTER INITILIZE SAVE REGISTERS SO THAT 
:*COMPARES CAN BE DONE 


SEQ 


0086 
SEQ 0085 


HPKRAAHRHHRHALD HHA HEH HHH HHH HHH HLL DS 
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021160 
021162 
021164 


021174 


021212 
021214 


021230 
021232 
021234 


021234 
021240 


021246 
021254 


021270 


021272 


021300 
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004037 
001632 
002110 
000023 


113737 


004037 
003154 
002110 
000023 
021214 
021214 
021234 
013705 
060505 
016537 
104001 


000207 


004737 
012777 


013777 


052777 


052737 


10:10 
043312 


003201 


043514 


047624 
001630 


042620 
000001 


002072 
160372 


043312 


000001 


000001 
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002135 


042270 


160412 


160364 


160340 


003162 
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RO, @4SAVER SAVE 
; FROM 


370 
;NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
7*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


> *COMPARE REGISTERS AFTER INITIALIZE 
JSR RO, @4#COMPAR ; COMPARE 
NTO :GOOD BUFFER 

; TEST BUFFER 

:NUMBER OF REGISTERS TO BE 

; COMPARED 

;RETURN POINT FOR ERROR 

;RETURN POINT FOR GOOD COMPARISON 
@FERWORD ,R5 :GETTING READY TO INDEX 
R5,R5 ;DOUBLE ERROR WORD 
RHWC-2(R5) ,@AREGADR ;FAILING REGISTER ADDRESS 
1 ; IMPROPER REGISTER 

;CONTENTS AFTER GIVING AN 

fn Mg sts FOLLOWING A 

K COMMAND 

PC RETURN TO COMPARISON 

;GOOD COMPARISON 
PC ,a@#CLDISK INIT AND SET UP GENERAL REG. 

AND UNIT NUMBER 
ADMD , ARHMR SET DIAGNOSTIC MODE BIT 

THIS ENABLES COMMANDS WITHOUT MOL 

[AND HOLDS RHLA FROM MOVING 


MOV @4SEECOM,@RHCS1 ;LOAD SEEK COMMAND INTO RHC 
CLR @RHCA :DESIRED CYLINDER ADDRESS 


*SAVE REGISTERS FOR COMPARISON AFTER GO 

JSR RO, @#SAVER 7 SAVE 

RHWC FROM 

REINTO :TO 

19. NUMBER OF REGISTERS SAVED 


3*GIVE GO TO SEEK COMMAND 
BIS #G0,@RHCS1 :GO TO SEEK COMMAND 


7 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BIS #GO,@AREINTO+6 9 ;SAVED RHCS1 


SEQ 0087 
SEQ 


0086 


HALDDRHAHHHAHHAHHHHHHHHHHLHLHHLHSLHSLLSLSSLSSLSSSSSSSLSLSESLALEESE 





J 7 
CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL-78 12:41 PAGE 89 SEQ 0088 
CZRIGC.P11 26-JUL-78 10:10 T45 SEEK COMMAND TEST SEQ 0087 


021306 052737 020000 003204 BIS #PIP,@MREINTO+30 ;SAVED RHDS1 
021314 042737 000200 003204 BIC MDRY,@*REINTO+30 ;SAVED RHDS1 


;*AFTER GO HAS BEEN GIVEN TO SEEK COMMAND 
ae E REGISTERS AGAIN SO THAT COMPARISONS CAN 
+ % 


DONE 
021322 043312 J RO, @#SAVER 7 SAVE 
021326 FROM 
021330 ;T0 
021332 00002 19. ;NUMBER OF REGISTERS SAVED 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113737 003201 002135 MOVB @ARE INTO+25 ,@AWRFROM+25; SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE COMMAND 
z*WITH CONTENTS AFTER GO IS GIVEN 


JSR RO, @#COMPAR ; COMPARE 
NTO :GOOD BUFFER 
: TEST — 


‘RETURN FOR ERROR 
: SAME 


:RETURN FOR GOOD COMPARISON 
047624 $: @#ERWORD ,R5 [GETTING READY TO INDEX 


R5,R5 . DOUBLG ERROR WORD 
001630 042270 RHWC-2(R5) ,@A#REGADR ;FAILING REGISTER ADDRESS 
021376 1 ; IMPROPER REGISTER CHANGE 
sAFTER C 
:WITH GO IS GIVEN 
021400 PC RETURN TO COMPARISON 


3*NOW GIVE INIT AND GET GO AND PIP DOWN 
021402 052712 3 BIS ACLR,aR2 3RH INITILIZE 
021406 013712 MOV QAUNIT ,AR2 SREINSTATE UNIT NUMBER 
021412 012777 000001 160240 MOV #DMD , ARHMR SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
[AND HOLDS RHLA FROM MOVING 
;*CHANGE REGISTERS TO EXPECTED VALUE 
021420 6539 000001 003162 #GO,@AREINTO+6  ;SAVED RHCS1 


003216 @RHLA, a#REINTO+42: SAVED RHLA 
021450 003220 @AREINTO+44 ; SAVED RHCC 


;*AFTER INITIALIZE SAVE REGISTERS SO THAT 
:*COMPARES CAN BE DONE 
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021454 


021474 
0215 


021512 
021514 


021530 


021532 
021534 


004037 
001632 
002110 
000023 


113737 


004037 
003154 
002110 
000023 


021514 
021514 
021534 


013705 
060505 
016537 
104001 


000207 


043312 


003201 


043514 


047624 
001630 
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RO, @4SAVER ; SAVE 
; FROM 


370 
;NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

>*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
002135 MOVB @ARE INTO+25 ,@AWRFROM+25;SAVE UPPER RHAS 


:*COMPARE REGISTERS AFTER INITALIZE 


JSR RO, @4COMPAR ; COMPARE 
NTO :GOOD BUFFER 
; TEST BUFFER 
SNUMBER OF REGISTERS TO BE 
OMPAR 


=C ED 
:RETURN POINT FOR ERROR 
“RETURN POINT FOR GOOD COMPARISON 
@AERWORD ,R5 :GETTING READY TO INDEX 
RS,R5 “DOUBLE ERROR WORD 
042270 RHWC-2(R5) @#REGADR :FAILING REGISTER ADDRESS 
1 :# CONTENTS AFTER GIVING AN 


; COMMAND 
PC RETURN TO COMPARISON 
;GOOD COMPARISON 


SEQ 0089 
SEQ 0088 


4: 
4: 
4 
4: 
4: 
4: 
4: 
4i 
43 


HHHHKHLHSLHSLHSSHSSSLSSLSESS 
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012706 001900 "MOV #STACK, SP :RESET STACK 
012737 000046 002032 #TTNO,@4TSTNM =: THIS SAVES TEST NUMBER 
021550 004737 042620 PC, a#CLDISK INIT D AND SET UP GENERAL REG. 


ID UN ER 
021554 012777 000001 160076 ADMD , ARHMR Ser DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
“AND HOLDS RHLA FROM MOVING 


021562 013777 002044 160050 MOV @AUNLOAD,@RHCS? ;LOAD UNLOAD COMMAND INTO RH 
*SAVE REGISTERS FOR COMPARISON AFTER GO 


021570 004037 043312 JSR RO, @#SAVER 7 SAVE 

021574 001632 RHWC ;FROM 

021576 003154 REINTO ;T0 

021600 000023 19. NUMBER OF REGISTERS SAVED 


;*GIVE GO TO UNLOAD COMMAND 
021602 052777 000001 160030 BIS #GO,a@RHCS1 :GO TO UNLOAD COMMAND 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
021610 052737 000001 003162 BIS #GO,@AREINTO+6  ;SAVED RHCS1 

021616 020000 003204 #PIP,a#REINTO+30 ;SAVED RHDS1 
021624 000200 003204 #DRY.@A#REINTO+30 ;SAVED RHDS1 


021632 001100 a4SPASS 31S THIS FIRST PASS 
$ BRANCH IF NOT FIRST PASS 
020000 157272 #SW13,QSWR ; INHIBIT ERROR PRINT HIGH? 

5$ BRANCH IF SW13 HIGH 


021650 104401 021656 ,65$ 3sTYPE ASCIZ STRING 
021654 000441 BR 64$ 3;GET OVER THE ASCIZ 


021760 013746 001774 MOV @AUNIT ,-(SP) UNIT UNDER TEST 
021764 104405 


;*AFTER GO HAS BEEN GIVEN TO UNLOAD COMMAND 
ae AGAIN SO THAT COMPARISONS CAN 
* 


043312 : JSR RO, @#SAVER 7 SAVE 
RHWC ; FROM 


WRF ROM :TO 
021776 000023 19. NUMBER OF REGISTERS SAVED 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113737 003201 002135 MOVB @ARE INTO+25 ,@AWRFROM+25; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE UNLOAD COMMAND 
;*WITH AFTER GO 
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043514 RO, @4#COMPAR ; COMPARE 

;GOOD BUFFER 

: TEST ores 
RETURN FOR ERROR 
3; SAME 


;RETURN FOR GOOD COMPARISON 
et amet RS GETTING READY TO INDEX 


0505 R :DOUBLE ERROR WORD 
016537 RMC-2(R5), @AREGADR ;FAILING REGISTER ADDRESS 


104001 ; IMPROPER REGISTER CHANGE 
AFTER UNLOAD COMMAND 
WITH GO IS GIVEN 

000207 RETURN TO COMPARISON 


ALL GO AND PIP DOWN 

052712 0000 : -@R2 zRH_ INITILIZE 

013712 ZREINSTATE UNIT NUMBER 

012777 000001 157574 #DMD , ARHMR [SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
zAND HOLDS RHLA FROM MOVING 


;*CHANGE REGISTERS TO EXPECTED VALUE 
000001 003162 BIC #GO ,@ARE INTO+6 ED RHCS1 
020000 003204 #PIP,QAREINTO+30 ;SAVED RHDS1 

003204 MDRY ,AAREINTO+30 ;SAVED RHDS1 


000200 
157562 003216 @RHLA , @#RE INTO+42: SAVED RHLA 


z*AFTER INITIALIZE SAVE REGISTERS SO THAT 
7 *COMPARES CAN BE DONE 


043312 JSR RO, @#SAVER 7 SAVE 
RHWC ;FR 


WRF ROM :T0 
022124 000023 19. ‘NUMBER OF REGISTERS SAVED 


z*COMPARE REGISTERS AFTER INITIALIZE 

3*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

[*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
022126 113737 003201 002135 MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


004037 043514 JSR RO, a4COMPAR ; COMPARE 
003154 ;GOOD BUFFER 
002110 : TEST BUFFER 
022144 000023 9 NUMBER + REGISTERS TO BE 


:C 
022146 022154 [RETURN POINT FOR ERROR 
022150 022154 ; SAME 

022152 022174 ;RETURN POINT FOR GOOD COMPARISON 


022154 013705 047624 : @#ERWORD ,R5 GETTING READY TO INDEX 
022160 060505 R5,R5 ;DOUBLE ERROR WORD 
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CZRJGC.P11 26-JUL-78 10:10 T46 OAD COMMAND TEST SEQ 0091 
3960 022162 016537 001630 042270 MOV RHWC=2(R5) ,@#REGADR ;FAILING REGISTER ADDRESS 
3961 022170 104001 ERROR 1 IMPROPER REGISTER 
3962 ZCONTENTS AFTER GIVING AN 
3963 [UNLOAD COMMAND 
3964 022172 000207 RTS PC [RETURN TO COMPARISON 
ce 022174 4$: GOOD COMPARISON 
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022174 
022202 
022204 
022210 


022210 


022224 
022230 


022236 
022244 


022252 


022310 
022312 
022316 


022324 
022332 


22 
022350 
022352 


022360 
022366 


26-JUL- 


032777 


012737 
004737 
012777 


052777 
042777 


017777 
013711 
005211 


012777 


013777 
012777 


052777 


052737 
052737 


78 10:10 


000020 
023162 


001000 
000047 
042620 


000001 


157420 
002072 


042620 
000001 


002074 
000001 


043312 
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156736 


002032 


157422 


157414 
157406 


157372 


157360 
157352 


157334 


157306 
157310 


157260 


003162 
003204 
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BIT #SW4 ,ASWR ; TEST FOR NO OFFSET OR RTC 
BEQ 6 :1 

JMP TST51 ; TESTS 
[CONTINUE WITH NEXT TWO TESTS 


SCOPE 
MOV AMSTACK , SP sRESET STACK 
MOV MTTNO,@4TSTNM =; THIS jg TEST NUMBER 
JSR PC ,@#CLDISK :INIT AND SET UP GENERAL REG. 
AND UNIT NUMBER 
MOV #DMD , ARHMR “SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RHLA FROM MOVING 


3*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 
BIS MINX ,@RHMR SET INDEX PULSE 
BIC #MINX , @RHMR CLEAR INDEX 


7*TO ENABLE LOOP ON THIS TEST THE POSITIONER HAS TO 
;*BE BROUGHT TO CENTER LINE 


MOV @RHCC ,@RHCA SET DESIRED eye TO RHCC 
MOV @4SEECOM,aR1 [SEEK COMMAND TO RHCS1 

INC aR1 ;GO TO SEEK COMMAND 

;*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER OFF OFFSET POSITION 
MOV #4 R ; COUNTER 


#"STCK!DMD, @RHMR™ zSET SECTOR CLOCK 
R ;RESET SECTOR CLOCK 


: COUNT 
;BRANCH IF NOT COMPLETE 


PC ,aACLDISK INIT AND SET UP GENERAL REG. 
zAND UNIT NUMBER 

ADMD , ARHMR SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 


MOV @A4OFSETC,@RHCS1 ;LOAD AN OFFSET BIT 
MOV #OF 25 , @RHOF SET AN OFFSET BIT 


s*SAVE REGISTERS FOR COMPARISON AFTER GO 

JSR RO, @4#SAVER 7 SAVE 

RHWC s FROM 

REINTO 370 

19, ;NUMBER OF REGISTERS SAVED 


:*GIVE GO TO OFFSET COMMAND 
BIS #G0,@RHCS1 :GO TO OFFSET COMMAND 


7 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BIS #GO,@MREINTO+6_ ;SAVED RHCS1 
BIS #PIP,@MREINTO+30 ;SAVED RHDS1 


C 8 
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ms 022374 042737 000200 003204 BIC MDRY ,@AREINTO+30 ;SAVED RHDS1 
7 *AFTER GO HAS BEEN GIVEN TO OFFSET COMMAND 
*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


*BE DONE 
022402 JSR RO, @#SAVER 7 SAVE 
RHWC 


; FROM 
WRF ROM ;T0 
022412 19. ;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
022414 113737 003201 002135 MOVB @ARE INTO+25 ,AAWRFROM+25; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE OFFSET COMMAND 
;*WITH AFTER GO 
022422 043514 JSR RO, a#COMPAR ; COMPARE 
;GOOD BUFFER 
TEST BUFFER 
NUMBER 
[RETURN FOR ERROR 


0224 ; SAME 
022440 022462 ;RETURN FOR GOOD COMPARISON 


022442 013705 t <i patel RS GETTING READY TO INDEX 
022446 060 R :DOUBLE ERROR WORD 
022450 RrMC—2(RS) @AREGADR ;FAILING REGISTER ADDRESS 
022456 1 ; IMPROPER REGISTER CHANGE 
AFTER OFFSET COMMAND 
;WITH GO IS GIVEN 
022460 PC :REiURN TO COMPARISON 


:*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 


022462 052712 000040 : ACLR,@R2 7RH_ INITILIZE 

022466 013712 QAUNIT ,AR2 sREINSTATE UNIT NUMBER 

022472 012777 000001 157160 ADMD , ARHMR SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
AND HOLDS RHLA FROM MOVING 


jx CHANGE | REGISTERS TO EXPECTED VALUE 
042737 000001 003162 BIC @#REINTO+6 ;SAVED RHCS1 
042737 000001 sor Se a @#REINTO+16;SAVED RHOF 
042737 020000 #PIP, @AREINTO+30 : SAVED RHDS1 
052737 000200 #DRY. @AREINTO+30 :SAVED RHDS1 
017737 157140 003216 @RHLA, @#RE INTO+42: SAVED RHLA 


;*AFTER INITIALIZE SAVE REGISTERS SO THAT 
;*COMPARES CAN BE DONE 


043312 JSP RO, @4SAVER 7 SAVE 
RHWC ;FROM 


0225 
022542 
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022544 002110 WRF ROM :T0 
022546 000023 19. NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
022550 113737 003201 002135 MOVB @ARE INTO+25 ,@AWRFROM+25; SAVE UPPER RHAS 


> *COMPARE REGISTERS AFTER INITIALIZE 
022556 004037 043514 JSR a4 COMPAR ; COMPARE 
003154 ;GOOD BUFFER 
002110 TEST BUFFER 
000023 9 SNUMBER OF REGISTERS TO BE 


: COMPARED 
022570 022576 [RETURN POINT FOR ERROR 
022572 022576 3s 

022574 022616 ;RETURN POINT FOR GOOD COMPARISON 


022576 013705 047624 : @4ERWORD ,R5 GETTING READY TO INDEX 
022602 060505 R5,R5 :DOUBLE ERROR WORD 
022604 016537 001630 042270 RHWC-2(R5),@WREGADR ;FAILING REGISTER ADDRESS 
022612 104001 1 ; IMPROPER REGISTER 
ZCONTENTS AFTER GIVING AN 
INITIALIZE FOLLOWING A 
ZOFFSET COMMAND 
022614 000207 ;RETURN TO COMPARISON 


022616 : ;GOOD COMPARISON 
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022616 


022632 
022636 


022644 


022652 


022660 


022666 
022672 
022674 
022676 


022730 


022732 
022740 
022746 


022754 


000004 
012706 
012737 
004737 


012777 


052777 
042777 


013777 


113737 


042620 


000001" 


000004 
000004 


002076 


043312 


000001 


000004 
000011 
000001 


000001 
020000 
000200 


043312 


003201 
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002032 

157014 


157006 
157000 


156752 


156732 


156740 
156732 


003162 
003204 
003204 


002135 
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OFFSET COMMAND TEST 


SCOPE 
MOV MSTACK , SP RESET STACK 
MOV ATTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 
JSR PC ,@4CLDISK : INIT AND SET UP GENERAL REG. 
AND UNIT NUMBER 
MOV ADMD , ARHMR SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RHLA FROM MOVING 


:*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 
BIS AMINX , @RHMR ;SET INDEX PULSE 
BIC #MINX ,@RHMR :CLEAR INDEX 
MOV @ARETCL,@RHCS1 ;LOAD RETURN TO CENTER LINE COMMAND INTO RHCS1 
:*SAVE REGISTERS FOR COMPARISON AFTER GO 
JSR RO, @4SAVER SAVE 
RHWC : FROM 
REINTO 3:70 

19. ;NUMBER OF REGISTERS SAVED 

:*GIVE GO TO RETURN TO CENTER LINE COMMAND 
BIS #G0,@RHCS1 ;GO TO RETURN TO CENTER COMMAND 

:*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CENTER LINE 

#4,R ; COUNTER 


uMSTCK ! OD @RHMR: SET SECTOR CLOCK 
RESET SECTOR CLOCK 


; COUNT 
;BRANCH IF NOT COMPLETE 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BIS A#GO,@AREINTO+6_ ; SAVED RHCS1 
BIS #PIP,@AREINTO+30 ;SAVED RHDS1 
BIC #DRY ,@AREINTO+30 ;SAVED RHDS1 


:*AFTER GO HAS BEEN GIVEN TO RETURN TO CENTER LINE COMMAND 

:*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 

7; *BE DONE 

J RO, @4SAVER 3 SAVE 
: FROM 


3:70 

NUMBER OF REGISTERS SAVED 
:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
: «OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


7 *COMPARE REGISTERS BEFORE RETURN TO CENTER LINE COMMAND 


d 
d 
4 
4 
4 
4 
4 
4 
d 
d 
4 
4 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
4 
d 
d 
4 
d 
d 
4 
d 
4 
4 
4 
4 
4 
4 
4 
4 
‘ 
4 
4 
‘ 
4 
4 
‘4 
‘ 
4 
4 
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022774 
023000 


023032 


023034 
023040 
023044 


023052 


023102 
023106 
023110 
023112 


023114 


023122 


023132 
023134 
023136 
023140 


023142 


013705 
060505 
016537 
104001 


000207 


052712 
013712 
012777 


042737 
042737 
052737 
017737 


004037 
001632 
002110 
000023 


113737 


023142 
023142 
023162 


013705 


043514 


047624 
001630 


156574 


043312 


003201 


043514 
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042270 


156606 


003162 


003216 


002135 
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RETURN TO CENTER LINE COMMAND TEST 


3 *WITH AFTER GO 
SR RO, @#COMPAR ; COMPARE 
:GOOD BUFFER 
; TEST a 


:RETURN FOR ERROR 
‘RETURN FOR GOOD COMPARISON 
BYERWORD. RS :GETTING READY TO INDEX 


R :DOUBLE ERROR WORD 

RHC-2(RS), @#REGADR s;FAILING REGISTER ADDRESS 

1 ; IMPROPER REGISTER CHANGE 
ZAFTER RETURN TO CENTER LINE COMMAND 
;WITH GO IS GIVEN 

PC ;RETURN TO COMPARISON 


:*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 


BIS ACLR,AR2 RH INITILIZE 
MOV @AUNIT ,AR2 ;REINSTATE UNIT NUMBER 
ADMD , @RHMR SET DIAGNOSTIC MODE BIT 
THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 


;*CHANGE REGISTERS TO EXPECTED VALUE 
#GO,@AREINTO+6  ;SAVED RHCS1 
#PIP,@AREINTO+30 ;SAVED RHDS1 
#DRY ,AAREINTO+30 ;SAVED RHDS1 
@RHLA, @#RE INTO+42; SAVED RHLA 


Ae i INITIALIZE SAVE REGISTERS SO THAT 
*COMPARES CAN BE DONE 
RO, @#SAVER 7 SAVE 
FROM 


370 

;NUMBER OF REGISTERS SAVED 
;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


;*SO THAT THE COMPARES ARE ONLY VALID FOR THE oa BYTE 
@ARE INTO+25 ,@#WRFROM+25 ; SAVE UPPER RHA 


z*COMPARE REGISTERS AFTER INITIALIZE 
JSR RO, @#COMPAR ; COMPARE 
; GOOD pan 
: TEST FER 
SNUMBER OF REGISTERS TO BE 
; COMPAR 
[RETURN POINT FOR ERROR 


“RETURN POINT FOR GOOD COMPARISON 


@F#ERWORD ,R5 GETTING READY TO INDEX 


nnn nRR RRR RRR RR RRR RRR RRR RRA RRA RRKRRRHKRRRRHL HERE LLLP 
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023146 060505 ADD R5,R5 DOUBLE ERROR WORD 
023150 016537 001630 042270 MOV RHWC=2:R5), aWREGADR sFAILING REGISTER ADDRESS 
023156 104001 ERROR 1 IMPROPER REGISTER 
SCONTENTS AFTER GIVING AN 
; INITIALIZE FOLLOWING A RETURN TO 
ZCENTER LINE COMMAND 
023160 RTS PC RETURN TO COMPARISON 


023162 : ;GOOD COMPARISON 


FA 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
r} 
4 
d 
4 
é 
d 
é 
r} 
d 
é 
7} 
d 
d 
4 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
d 
4 
| 
4 
4 
4 
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023162 


023176 
023202 


023210 
023216 
023224 
023232 
023242 


023244 


023252 


023274 


023276 
023304 
023312 


023320 


023330 


023332 


000004 
012706 
012737 
004737 


012777 


052777 
042777 


013777 


004037 
001632 
003154 
000023 


052777 


012700 


052737 
052737 
042737 


113737 


042620 
000001 


043312 


003201 
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002032 


156450 


156442 
156434 


156406 


156366 


156374 
156366 


003162 
003204 
003204 


002135 
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RETURN TO CENTER LINE COMMAND TEST 


ASTACK , SP RESET STACK 

MTTNO,QATSTNM = ;THIS SAVES TEST NUMBER 

PC ,@#CLDISK ; INIT AND SET UP GENERAL REG. 
:AND UNIT NUMBER 

ADMD , ARHMR SET DIAGNOSTIC MODE BIT 
; THIS ENABLES COMMANDS WITHOUT MOL 
[AND HOLDS RHLA FROM MOVING 


:*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 


BIS AMINX ,@RHMR SET INDEX PULSE 
BIC AMINX , ARHMR CLEAR INDEX 


MOV @ARECALI,@RHCS1 ;LOAD RECALIBRATE COMMAND INTO RHCS1 
*SAVE REGISTERS FOR COMPARISON AFTER GO 
JSR RO, @#SAVER 7 SAVE 
RHWC 7FROM 
REINTO :TO 
19. NUMBER OF REGISTERS SAVED 
;*GIVE GO TO RECALIBRATE COMMAND 
BIS #GO,@RHCS1 :GO TO RECALIBRATE COMMAND 
;*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CYLINDER 0 
#4 ,RO ; COUNTER 


uMSTCK DMD @RHMR; SET SECTOR CLOCK 
RESET SECTOR CLOCK 


; COUNT 
BRANCH IF NOT COMPLETE 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BIS #GO,@AREINTO+6  ;SAVED RHCS1 
BIS #PIP,QAREINTO+30 ;SAVED RHDS1 
BIC M#DRY,,@AREINTO+30 ;SAVED RHDS1 


;*AFTER GO HAS BEEN GIVEN TO RECALIBRATE COMMAND 
ly REGISTERS AGAIN SO THAT COMPARISONS CAN 
:* 


E 
RO, @#SAVER 3; SAVE 
; FROM 


:T0 
;NUMBER OF REGISTERS SAVED 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 

MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 





an 
NN 
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CZRJGC.P11 26-JUL-78 10:10 151 RECALIBRATE COMMAND TEST 
4285 :*COMPARE REGISTERS BEFORE RECALIBRATE COMMAND 
4286 s*WITH AFTER GO 
4287 023340 004037 043514 JSR RO, a@#COMPAR : COMPARE 
4288 023344 003154 REINTO GOOD BUFFER 
4289 023346 002110 WRF ROM :TEST BUFFER 
4290 023350 000023 19. = NUMBER 
4291 023352 023360 1$ RETURN FOR ERROR 
4292 023354 023360 1$ > SAME 
o633 023356 023400 2$ :RETURN FOR GOOD COMPARISON 
4295 023360 013705 047624 1$: MOV OFERWORD . RS GETTING READY TO INDEX 
4296 023364 060505 ADD R DOUBLE ERROR WORD 
4297 023366 016537 001630 042270 MOV Rine=2(R5) . @AREGADR ;FAILING REGISTER ADDRESS 
4298 023374 104001 ERROR 1 ; IMPROPER REGISTER CHANGE 
4299 [AFTER RECALIBRATE COMMAND 
4300 WITH GO IS GIVEN 
od 023376 000207 RTS PC RETURN TO COMPARISON 
has :*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 
4305 023400 052712 000040 2$: BIS ACLR,AR2 :RH INITILIZE 
4306 023404 013712 001774 MOV @FUNIT,aR2 REINSTATE UNIT NUMBER 
4307 023410 012777 000001 156242 MOV #DMD , ARHMR SET DIAGNOSTIC MODE BIT 
4308 THIS ENABLES COMMANDS WITHOUT MOL 
eH :AND HOLDS RHLA FROM MOVING 
4311 :*CHANGE REGISTERS TO EXPECTED VALUE 
4312 023416 042737 000001 003162 BIC #GO,@AREINTO+6 ;SAVED RHCS1 
4313 023424 042737 020000 003204 BIC #PIP,AMREINTO+30 ;SAVED RHDS1 
4314 023432 052737 000200 003204 BIS #DRY,@#REINTO+30 ;SAVED RHDS1 
aate 023440 017737 156230 003216 MOV @RHLA, @ARE INTO+42; SAVED RHLA 
4317 :*AFTER INITIALIZE SAVE REGISTERS SO THAT 
4318 :*COMPARES CAN BE DONE 4 
4319 023446 004037 043312 JSR RO, @#SAVER 7 SAVE 4 
4320 023452 001632 RHWC * FROM 4 
4321 023454 002110 WRF ROM :T0 4 
4322 023456 000025 19. NUMBER OF REGISTERS SAVED : 
4324 :*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 4 
4325 :*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 4 
4326 :*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 6 
4 023460 113737 003201 002135 MOVB @ARE INTO+25, @AWRFROM+25; SAVE UPPER RHAS : 
4329 4 
4330 7 * COMPARE REGISTERS AFTER INITIALIZE 4 
4331 023466 004037 043514 JSR RO, @#COMPAR : COMPARE 4& 
4332 023472 003154 REINTO GOOD BUFFER 4 
4333 023474 002110 WRF ROM :TEST BUFFER 4 
4334 023476 000023 19. ‘NUMBER OF REGISTERS TO BE 4 
4335 : COMPARED 4 
4336 3500 023506 3$ ‘RETURN POINT FOR ERROR 4 
4337 023502 023506 3$ : SAME “ 
4338 023504 023526 4$ RETURN POINT FOR GOOD COMPARISON 7 
4340 023506 013705 047624 3$: MOV @#ERWORD RS GETTING READY TO INDEX 4 
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023512 060505 R5,R5 ;DOUBLE ERROR WORD 
023514 016537 001630 042270 RHWC=2<R5),@#REGADR ;FAILING REGISTER ADDRESS 
023522 104001 1 ; IMPROPER REGISTER 
CONTENTS AFTER GIVING AN 
: INITIALIZE FOLLOWING A 
;RECALIBRATE COMMAND 
023524 RETURN TO COMPARISON 


023526 : ;GOOD COMPARISON 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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023526 
023530 
023534 
023542 


023546 
023554 
023562 
023572 


023574 
023602 


012706 
012737 
004737 


012777 


013777 


004037 
001632 
003154 
000023 


052777 
052777 


052737 
017737 


113737 


013705 
060505 
016537 
104001 


000052 
042620 
000001 


002052 


043312 


000001 
000001 


000001 
156052 


043312 


003201 


047624 
001630 
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MACY11 30A(1052) 27-JUL-78 12:41 PAGE 103 SEQ 0102 
T51 RECALIBRATE COMMAND TEST SEQ 0101 


V STACK, SP RESET STACK 
002032 MTTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 
PC ,@4CLDISK INIT se SET UP GENERAL REG. 


AND UNIT NUMBER 

156104 ADMD , ARHMR SET DIAGNOSTIC MODE BIT 
;THIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RHLA FROM MOVING 


156056 MOV @ARELEASE ,@RHCS1 ;LOAD RELEASE COMMAND INTO RHCS1 


:*SAVE REGISTERS FOR COMPARISON AFTER GO 
JSR RO, @4#SAVER fee} 


370 
;NUMBER OF REGISTERS SAVED 


:*GIVE GO TO RELEASE COMMAND 
156036 BIS #GO,@RHCS1 :GO TO RELEASE COMMAND 
156050 BIS #DMD , ARHMR :SET DMD TO HOLD RHLA 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
> *AFTER GO HAS BEEN GI ’EN TO RELEASE COMMAND 
003202 BIS ADMD, ARE INTO+26; SAVED RHMR 
003216 MOV @RHLA, A#REINTO+42;SAVED RHLA 


3*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
;*BE DON 


E 
RO, @4SAVER 7; SAVE 
7FROM 


370 
;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
002135 MOVB @ARE INTO+25 , @AWRFROM+25 ; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE RELEASE COMMAND 
;*WITH AFTER GO 
RO, @4#COMPAR ; COMPARE 
;GOOD BUFFER 
TEST BUFFER 


; NUMBER 
;RETURN FOR ERROR 
: SAME 
RETURN FOR GOOD COMPARISON 
a, R5 :GETTING REAYD TO INDEX 
RROR WORD 


R ;DOUBLE E 
042270 MOV RiWe=2(R5) , @AREGADR ;FAILING REGISTER ADDRESS 
ERROR 1 ; IMPROPER REGISTER CHANGE 





L 8 
CZRJGCO,RPO04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL=78 12:41 PAGE 104 SEQ 0103 
CZRJGC.P11 26-JUL=78 10:10 T52 RELEASE COMMAND TEST SEQ 0102 


sAFTER RELEASE COMMAND 


4406 
WITH GO IS GIVEN 
RTS PC RETURN TO COMPARISON 


4407 
4408 023702 000207 
4409 023704 

4410 
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000004 
012706 
012737 002032 
023754 004737 


023760 012777 155656 


023766 005077 
023772 012777 155650 
024000 013711 

024004 004037 

024010 001632 

024012 003154 

624014 000023 

024016 004737 042654 


024022 104401 062450 
024026 000000 


024030 


155552 


024122 


mM 8 
27-JUL=78 12:41 PAGE 105 
RELEASE COMMAND TEST 


STACK , SP RESET STACK 

THIS SAVES TEST NUMBER 

INIT DRIVE 

SET DIAGNOSTIC MODE 

RO, DIMAKE CYL ;SUBROUTINE TO GIVE A SEEK 
CHANGE RHCC TO 0 


STACK , SP 
#TTNO,@4TSTNM 
PC ,@#CLDISK 


RESET STACK 
THIS SAVES TEST NUMBER 
; INIT AND SET UP GENERAL REGISTERS 


ARE RERMDST SET UPS FOR SEARCH COMMAND 

#21. ,@RHDST - 4 re SECTOR/TRACK REGISTER 
RACK 0 SECTOR 21 

@RHC ‘DESIRED CYLINDER =0 

WMT 22. @RHOF FORMAT BIT=1 (16 BITS PER WORD) 

@ASERCH,@R1 FILL SEARCH COMMAND IN RHCS1 


2 *NOW SAVE anak STARTING FROM RHWC IN WRITE FROM BUFFER 
JSR RO, @#SAVE _ REGISTERS FOR COMPARISON 
THE END OF THE SEARCH 
START SAVING ty RHWC 
SAVE _INTO REINTO 
[NUMBER OF REGISTERS SAVED 


JSR PC, Nia CHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE ,CPHALT SAND THAT NO OTHERS = 1. CANNOT CON- 
HALT STOP THE TEST 


;*NOW THE DIAGNOSTIC MODE BIT WILL BE SET 
;*AND THE SEARCH OPERATION STARTED 


a4$TMP1 THIS WILL HAVE THE EXPECTED 
VALUE OF RHLA REGISTER 


NOW RO HAS MAINTENANCE REG. ADDR. 
GET DESIRED SECTOR/TRACK REG. 
;GET SECTOR ONLY 
[DUPLICATE SECTOR 


RHWC 
REINTO 
19. 


@RHDST .R3 
#177400,R3 
R3,a#SECTR 
#DMD ,aR 
#GO,@RHCS1 GO 
#MSTCK,aRO ‘SET SECTOR CLOCK 
#MSTCK.aRO :CLEAR SECTOR CLOCK 

“ALLOW TIME BETWEEN SECTOR CLOCKS 
#MSTCK,@RO SSET SECTOR CLOCK 
#MSTCK.aRO “CLEAR SECTOR CLOCK 


ZA 
#MINX!MSTCK,@RO ; pH 
#DMD , ARO T INDEX 
TF SECTOR REQUIRED JUMP OUT 


SEQ 0104 
SEQ 0103 
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024124 001555 BEQ 11$ ;BRANCH OF SECTOR ZERO REQUIRED 


aes THE INDEX PULSE RHLA WILL BE Ri 5 a TO BE ZERO 
AND $STMP4 WILL BE SET UP TO COUNT 
024126 012737 (001140 001206 1$: ov #608. ,Q4STMP4 ; THERE Bay | 608 "BYTES PER SECTOR 
024134 155534 00 SAVE R 
024142 155476 iSAVE DESIRED SECTOR TRACK 
024150 001200 001126 awS TMP) “BARGDDAT’ ey RHLA SHOULD BE HAVE EXTENSION 


ELD EQUAL TO ZERO 
024156 2$ CH IF GOOD 
053550 001202 @ASECTR,@#STMP2 SGET SECTOR SOUGHT 
001202 3, a4STMP2 7STMP2 NOW HAS PRESENT SECTOR 
001140 :NUMBER OF BYTES PER SECTOR 
3 (SP)HAS PRESENT BYTE NUMBER 
(SP) +, @#STMP3 ; PRESENT BYTE NUMBER 
24 ;LOOK AHEAD REGISTER AT THE BEGINING OF A 
;SECTOR IS IN ERROR 


3*NOW THE 304 WORDS WILL START 

;*FOR FIRST BYTE CLOCK WILL BE INDEPENDENT OF 
:*SECTOR CLOCK THEN IT WILL COINCIDE FOREVER TILL 
>*THE BEGINNING OF NEXT SECTOR 


:*ONE WORD ONLY THAT IS TWO BYTES 


024210 012702 ; #8. ,R2 ;BYTE 
rt ad BYTES PER WORD 


AMMSTCK!MCLK,@RO ;SET SECTOR AND CLOCK 
AMSTCK!MCLK,@RO CLEAR SECTOR AND CLOCK 
AMCLK ,@RO T C 

+ eaaiaas 


BN 4$ BRANCH IF BYTE NOT COMPLETE 
001206 @a4$TMP4 SBYTE COUNT DOWN 
000007 #7 ,R2 SETUP FOR SECOND BYTE 
R5 31S WORD COMPLETE? 
3$ SBRENCH IF NOT COMPLETE 
TO GIVE SECTOR CLOCK AND CLOCK 


*NOW 303 WORDS ARE LEFT ALL ARE IDENTICAL 
;*THAT IS 606 IDENTICAL BYTES WILL BE GIVEN 
7*RHLA WILL BE CHECKED STAR TO COUNT AFTER 

> *BEGINNING OF SECTOR PULSE 

[*AFTER 128 BYTES (2 BYTES ARE ALREADY GIVEN) 
>*SO 127 MORE 

;*THEN RHLA WILL BE CHECKED AFTER 128 MORE BYTES 
7*THEN RHLA WILL BE CHECKED AFTER 256 MORE BYTES 
>*THEN THE TOTAL OF 608 BYTES WILL BE COMPLETED 
[*AND RHLA WILL BE MADE READY FOR NEXT SECTOR 
;*AND RHLA WILL BE CHECKED 


024262 012705 000100 MOV #64. ,R5 3R5 WILL KEEP TRACK WHEN 
EXTENSION FIELD IS TO BE CHECKED 
024266 012701 000177 MOV #127.,R1 sFIRST TIME CHECK EXTENSION FIELD 
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sAFTER 127 MORE BYTES 
024272 012702 00000 5$: MOV #7 ,R2 ;CLOCKS PER BYTE COUNTER 
AMMSTCK!MCLK,@RO ;SET SECTOR CLOCK AND CLOCK 
A#MSTCK!MCLK,@RO ;CLEAR SECTOR CLOCK AND CLOCK 
6$: AMCLK,@RO SET CLOCK 
AMCLK ,@RO RESET CLOCK 
R2 ;COUNT DOWN CLOCKS PER BYTE 
[BRANCH IF BYTE NOT COMPLETE 
COUNT DOWN BYTES 
;BRANCHOUT IF 608 BYTES DONE 
;COUNT DOWN NUMBER OF BYTES 
[TO CHECK EXTENSION FIELD 
024332 BRANCH IF EXTENSION FIELD NOT 
[TO BE CHECKED YET 


7*NOW THE EXTENSION FIELD OF THE LOOK AHEAD REGISTER 
;*WILL BE CHECKED 


024334 000020 001200 #20 ,a4STMP1 ;GET TO THE NEXT EXTENSION 
024342 017737 155326 001126 @RHLA,@ASBDDAT ;GET RHLA FOR COMPARISON 


024350 017737 155270 001720 @RHDST , a#DST SAVE DESIRED fo phy TRACK 
001200 001126 = TMP) ,a#$BDDAT ; ped ge i HLA 


$ ; BRANCH 

053550 001202 @ASECTR AAS TMP2 2GET SECTOR SOUGHT 
R3,a4STMP2 $STMP2 NOW HAS PRESENT SECTOR 
#608. .-(SP) NUMBER OF BYTES PER SECTOR 
aASTMPS , (SP) 7 (SP) HAS PRESENT BYTE NUMBER 
(SP)+,a4$TMP3 PRESENT BYTE NUMBER 

024414 25 ;LOOK AHEAD ERROR IN THE MIDDLE 
OF A SECTOR IS IN ERROR 


024416 060505 7$: R5.R5 ;GET NEXT STEP TO CHECK EXTENSION FIELD 
024420 R5,R1 ;PUT IN COUNTER 
024422 000723 BR 5$ ;BRANCH BACK SECTOR 


71S NOT COMPLETE 
024424 001200 10$: #20, a4STMP1 
AMSTCK ,@RO ; THESE TWO INSTRUCTIONS GIVE 
AMSTCK ,aRO ZONE SECTOR CLOCK EXTRA 
SALLOW TIME BETWEEN SECTOR CLOCK 
AMSTCK ARO ; THESE TWO INSTRUCTIONS GIVE 
024450 2710 00001 AMSTCK ,aRO ZONE SECTOR CLOCK EARLY 
SBEFORE THE NEXT SECTOR 
024454 R3 1S REQUIRED NO OF SECTORS COMPLETE 
024456 1$ ;BRANCH IF NOT 


3*NOW THE REQUIRED SECTOR IS REACHED 
7*ONE SECTOR CLOCK WILL BE GIVEN TO GET SECTOR PULSE 
;*DOWN AND HENCE ATA UP 


#8. ,R2 38 CLOCKS 
#MCLK,aRO SET CLOCK 
cota CLEAR CLOCKS 


ONE 


OWN 
001372 12$ ;BRANCH IF 8 NOT D 
052710 AMSTCK!MCLK,@RO ;SET SECTOR AND CLOCK 
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024504 042710 000012 BIC A#MSTCK!IMCLK,@RO ;CLEAR SECTOR AND CLOCK 


>*NOW ALL REGISTERS WILL BE COMPARED 
7*SO FILL EXPECTED VALUE INTO SAVED LOCATIONS 


024510 052737 100000 003162 BIS #SC ,QMREINTO+6 ; INCLUDE SC IN SAVED RHCS1 
024516 053737 003200 BIS @WATTENT, QOREINTO+EG :FILL ACPROPIATE ATTENTION 
024524 052737 000001 003202 BIS ADMD ,@AREINTO+26 ;SET DMD IN RHMR SAVED 

024532 052737 003204 BIS HATA, @AREINTO+30 ;SET ATA IN RHDS1 SAVED 

024540 013737 003216 MOV aASTMP1, “QNREINTO*42 ;MOVE EXPECTED VALUE 


3 *AFTER SEARCH COMMAND 
:*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


024546 JSR RO, @#SAVER 
024552 RHWC 

024554 WRF ROM 

024556 2 19. 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113737 003201 002135 MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


:*COMPARE REGISTERS BEFORE SEARCH WITH AFTER 


024566 043514 JSR RO,@#COMPAR ; COMPAR 
024572 RE INTO :GO BUFFER 
024574 ; TEST BUFFER 
8. ; NUMBER 
;RETURN FOR ERROR 


RETURN FOR GOOD COMPARISON 
047624 : @4ERWORD ,R5 GETTING READY TO INDEX 
R5,R5 :DOUBLE ERROR WORD 
001630 042270 RHWC=2(R5), @#REGADR FAILING REG. ADDRESS 
1 CONTENTS OF REGISTER 
PC :CHANGED AT END OF 
024626 SEARCH 
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024626 000004 TSTS5: SCOPE 
MOV AMSTACK, SP 


002032 #TTNO,@4TSTNM 
PC ,@#CLDISK 

155004 #DMD , ARHMR 
RO, @4MAKECYL 


RESET STACK 

THIS SAVES TEST NUMBER 
INIT DRIVE 

SET DIAGNOSTIC MODE 

; SUBROUTINE TO GIVE A SEEK 
CHANGE RHCC TO 0 


SEQ 


0108 
SEQ 0107 





5 
5 
5 
5 
5 
5 
5 
5 
5 
P 
5 
P 
5 
P 
3 
> 
| 
| 
| 
| 
| 
¢ 
é 
é 
z 
é 
é 
i 
i 
i 
i 
‘ 
i 
i 
i 
i 
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024662 
024664 
024670 
024676 


024716 


024722 
024730 


024760 


024762 
024770 
024774 
025000 
025004 


025010 
025016 


025022 
025026 
025032 


025056 


000004 
012706 
012737 


012737 
005037 


052642 
052652 


012777 


013711 


005037 
012777 
005077 
004737 


001000 
000056 


051324 
000460 
177777 


042620 


010000 
052644 
052646 
052650 


000400 
044026 


177374 


010000 


154622 


042654 
062450 


002064 


002006 
010000 
154574 
052466 


MACY11 


002032 


052642 


052702 


154642 


154576 


30A(1052) 
T55 


27-JUL-78 


E 
12:41 


9 
PAGE 110 


MAKE CURRENT CYLINDER = 0 


-SBTTL READ/WRITE ADDRESSING VIA RHMR 


TST56: 


SCOPE 
MOV 


AMSTACK, SP 


#TTNO,@4TSTNM 


#SECGAP ,RO 
#304. ,R1 
#-1,(RO)+ 
R1 


1$ 
PC,CLDISK 


RESET STACK 
;THIS SAVES TEST NUMBER 


“COUNTER 
: CLEAR "DISK'' AREA TO ALL ONES 


“THIS IS USED TO SET UP GENERAL 
“REGISTER CORRESPONDENCE 


ARE TO SET UP FOR DISKLESS USE ONLY 


HFMT22 ,@AWCY 
poiee Sy 


ARE REGULAR 
#-260. ,aRHWC 
WRF ROM ,RO 
RO, @RHBA 
#259. ,R5 
#FMT22,(RO)+ 


(RO) + 

R5 

2$ 

@RHDST 

PC, @ACHECKT 
,CPHALT 


@4WRIFOR,AR1 


a4ER 
arr 22. SRHOF 
@RHC 
PC, S# COMWHD 


L  ;FORMAT 22=16 BIT WORDS AND 
ZCYLINDER 0 
; re SECTOR=0 


sKEY2=0 
3256 DATAWORDS 
:GO TO CALCULATE CRC 


SETUPS FOR RH11 & ‘WRFROM’* OUTPUT BUFFER 


3256 DATA WORDS 4 HEADER WORDS 
sBUS ADDRESS TO BE 
;BUFFER ‘WRFROM’' 


; COUNTER 
[FORMAT =16 BIT WORD 


sSECTOR=0, TRACK=0,KEYS=0, ALL DATA=0 
:® CYLINDER=0....SO CLEAR ALL ‘WRFROM'' 
CONTINUE IF ALL 259 NOT COMPLETE 
;TRACK=0, SECTOR=0 


;CHECK THAT DVA,RDY,DPR,DRY = 1 
AND THAT NO OTHERS = 1. CANNOT CON- 
:STOP THE TEST 


;GET READY FOR WRITE HEADER 

:AND DATA My po! IN RHCS1 

7CLEAR ERROR F 

[FORMAT BIT=1 "6 BIT WORDS 

[CYLINDER 0 

[WRITE HEADER AND DATA FROM ‘WRFROM'' 
7 INTO THE RHMR REGISTER AND BACK INTO 
[CORE ‘DISK'' AREA 


SEQ 0109 
SEQ 0108 


MUMIA UAUWALALLALALAWIWA WALA Ua 
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Vw 


7*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR 
>*PRINT OUTS FROM THE ‘‘COMWHD'' ROUTINE THAT MEANS 
;*ALL HEADER ON DISK IS GOOD IE. ONLY DATA IS 
:*TO BE CHECKED TO SEE IF IT IS ZERO 


;*AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF THEY 
7*ARE ALL ZEROS (ECC1 AND ECC2 MAY NOT BE 0) AS WELL AS 
> *CHECKING RHWC FOR ZERO 


025062 017737 154544 001126 @RHWC , SBDDAT z;MOVE WORD COUNTER INTO BAD DATA 

025070 E 5$ SHOULD HAVE COUNTED UP TO ZERO 

025072 104040 40 ;RHWC DID NOT = 0 AFTER A WRITE 
sHEADER AND DATA 


025074 002006 : @FERFLGS s HAVE ANY ERRORS OCCURED? 
TST5S7 3; BRANCH IF YES 
043044 PC ,@#CHECKE :CHECK THAT BITS = 1 
062450 ~CPHALT CANNOT CONTINUE TESTING IF THEY DON'T 
[STOP THE TEST 
052422 @AWECC CLEAR ECC 
052424 aAwECC2 


z*REINTO BUFFER IS FILLED WITH EXPECTED DATA OF ALL O°S 
042536 JSR RO,@4CLAREA :CLEAR 'REINTO"’ 
REINTO 7FROM 
REINTO*#<272.*2> ;TO 


-WORD 0 FILL WITH ZEROS 
002006 CLR @FERFLGS ;CLEAR ERROR FLAG 


: *COMPARE i 1 teh + "DISK'' BUFFER 


;GOOD BUFFER 
TEST BUFFER 
[NUMBER OF WORDS CHECKED 


043514 


—. ee : TO 256 ARE 


i257. AND. 388 ARE ECC 
ZEROED OUT 

1259 TO 273 TOLERANCE GAP 
025170 


LRU RRL RRL RRR AL RAL ALALAALAL ALAA ANANAANAAMAAA AAA AU IAA II 
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025172 
025174 
025200 


025266 
025270 
025272 
025300 
025304 


025310 
025314 


025360 


025402 


26-JUL-78 10:10 


000004 
012706 
012737 


012737 
012737 


052652 
012777 


012720 
012720 
005020 


012777 


004737 
104401 
000000 


013711 


005037 
012777 
005077 
004737 


001000 
000957 
051324 
000460 


042620 


010000 


052646 
052650 
000400 
044026 


177374 
002110 
154324 
010000 


000001 


000400 
‘77777 


000001 


MACY11 30A(1052) 
156 


002032 


052642 
052644 


052702 


154332 


154276 


154252 


TSTS7: 


1$: 


23: 


3$: 


27-JUL-78 
WRITE HEADER AND DATA 1 


SCOPE 


G 
12:41 


STACK , SP 


#TTNO,@4TSTNM 


#SECGAP ,RO 
#304. ,R1 
(RO) + 

R1 


1$ 
PC ,@#CLDISK 


ARE TO BE SETUP 
#FMT22 .aAWCYL 


#1, @AWSECTR 
@AWKEY1 


BAWKEY? 
#256. , MF NWORD 


RS, a4CRC 


ARE REGULAR SETUPS FOR THE RH11 AND 


#-260. ,aRHWC 

#WRFROM,RO 

RO,@RHBA 

#FMT22,(RO)+ 

#1,(RO)+ 

(RO) + 

(RO) + 

#256. .R5 

#-1,(RO)+ 

R5 

3$ 

#1,ARHDST 

PC ,@#CHECKT 
PHALT 


@AWRIFOR ,AR1 
@4ERFLGS 
#FMT22,Q@RHOF 
@RHCA 

PC ,@#COMWHD 


9 
“wy 112 


RESET STACK 
THIS SAVES TEST NUMBER 


:POINTER 
; COUNTER 
: CLEAR SIMULATED ‘DISK'' AREA IN CORE 


“THIS IS USED TO SET GENERAL REGISTERS 


FOR DISKLESS USE ONLY 


FORMAT 22 = 16 BIT WORDS AND 
CYLINDER 0 
STRACK=0, SECTOR=1 
:KEY1 =0 
KEY2=0 
O56 DATA WORDS 
:GO TO CALCULATE CRC 


"WRF ROM'’ BUFFER 


3256 DATA WORDS 4 HEADER WORDS 
: THESE TWO INSTRUCTIONS GETS 
;ADDR. OF WRFROM INTO RO AND 
BUS ADDRESS REGISTER 

nage et oe BIT WORDS 

=CYLIND R=0 
TRACK= 5 SECTOR=1, 
“KEYI =0 

sKEY2=0 

; COUNTER 

MOVE ALL ONES FOR DATA 


BRANCH IF DATA NOT COMPLETE 
; TRACK=0 SECTOR=1 


CHECK THAT DVA,RDY.DPR,DRY = 1 
AND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 


;GET READY FOR WRITE HEADER AND 
DATA WITH oe IN RHCS1 
CLEAR ERROR FLAG 
FORMAT BIT=1 “ae BIT WORDS) 
:CYLINDER =0 
[WRITE HEADER AND DATA INTO ‘DISK’ AREA 


KEYS=0 


7*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE ‘‘COMWHD'' ROUTINE THAT MEANS ALL THE HEADER ON ‘DISK*' 


:*IS GOOD 


IE. ONLY THE DATA IS TO BE CHECKED TO SEE IF IT IS 


[*ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF 


SEQ 0111 
SEQ 0110 
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CZRJGC.P11 26-JUL-78 10:10 157 WRITE HEADER AND DATA 2 SEQ 0111 

<738 :*THEY ARE ALL ZEROS, - ECC1 AND ECC2 ARE NOT CHECKED. 

ee :*RHWC IS CHECKED TO BE = 0 

4796 025406 017737 154220 001126 MOV @RHWC , SBDDAT LOAD WORD COUNTER JUST IN CASE 

4797 025414 001401 BEQ 6$ SHOULD BE = 0 

4798 025416 104040 ERROR 40 sRHWC DOES NOT = O AFTER A WRITE 

_— sHEADER AND DATA IS COMPLETED 

4801 025420 005737 002006 6$: TST @#ERFLGS sHAVE ANY ERRORS OCCURRED? 

4802 025424 001041 BNE TST60 7 BRANCH IF YES 

4803 025426 004737 043044 JSR PC, @#CHECKE SCHECK THAT BITS = 1 

4804 025432 104401 062450 TYPE , CPHALT SCANNOT CONTINUE TESTING IF THEY DON'T 

4805 025436 000000 HALT ‘STOP THE TEST 

4806 025440 005037 052422 CLR aAWECC1 [CLEAR ECC 

= 025444 005037 052424 CLR aewECC2 CLEAR ECC 

4809 :*FILL "REINTO’' BUFFER WITH EXPECTED DATA OF ALL 1'°S 

4811 025450 004037 042536 JSR RO, @ACLAREA FILL REINTO BUFFER 

4812 025454 003154 REINTO :FROM 

4813 025456 004152 REINTO+<255.*2> ;TO 

4814 025460 177777 WORD <1 :DATA 

4815 025462 004037 042536 JSR RO, @#CLAREA :FILL REST 

4816 025466 004154 RE INTO+<256. *2> >FROM 

4817 025470 004214 RE INTO+<272. *2> :T0 

<cie 025472 000000 0 :DATA 

<9 025474 005037 002006 CLR aFERFLGS CLEAR ERROR FLAG ; 

ro :*NOW COMPARE ‘DISK’ BUFFER WITH ‘REINTO'’ BUFFER IN CORE 2 

4824 025500 004037 043514 JSR RO, a#COMPAR 7 CHECK 5, 

4825 025504 003154 REINTO :GOOD BUFFER 5. 

4826 025506 051422 DISK TEST BUFFER 5 

4827 025510 000421 273. NUMBER OF WORDS CHECKED 5 

4828 025512 025520 4$ RETURN POINT FOR ERROR HEADER 5 

4829 025514 025524 5$ :RETURN POINT FOR ERROR DATA 5 

4830 025516 025530 TST60 [RETURN FOR GOOD COMPARISON 5 

4831 025520 104007 4$: ERROR 7 READ ERROR 10 ext 5 

4832 025522 000207 RTS PC RETURN TO COMPAR 5 

4833 025524 104010 S$: ERROR 10 WORD NOS 1 TO 386 ARE 5 

4834 DATA WORDS 5 

4835 ‘WORD NOS 257 AND 258 5 

4836 ARE ECC WHICH HAVE BEEN 5 

4837 : ZEROED 5 

4838 WORD NOS Ry 5 

4839 1S DATA 5 

4840 WORD NOS O60 TO 273 5 

4841 SARE TOLERANCE GAP 5 

aBhe 025526 000207 RTS PC [RETURN TO COMPARE ; 

4844 5 

4845 5 
5 
5 
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025530 000004 TST60: 
012706 001000 MOV #STACK, SP RESET STACK 
012737 000060 002032 MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 


051324 a RO POINTER 
000460 #304. ; COUNTER 
00377 : #377, (RO)+ ;LOAD SIMULATED ‘DISK'' AREA WITH 377 


is 
042620 PC,CLDISK ;THIS IS USED TO SET UP GENERAL 
REGISTER CORRESPONDENCE 
ARE TO BE SETUP FOR DISKLESS USE ONLY 
025570 012737 052642 MFMT22,aMWCYL ;FORMAT o =16 BIT WORDS AND 


CYLINDER 0 
025576 012737 052644 #401,aAMWSECTR ;TRACK=1, SECTOR=1 
005037 OAWKEY1 3KEY1 =0 
005037 OAWKEY2 KEY2=0 
012737 000400 052702 #256. , @#F NWORD 556 DATA WORDS 
Resets R5,aACRC :GO TO CALCULATE CRC 


0 
052652 


7*THESE ARE REGULAR SETUPS FOR RH11 AND ‘WRFROM’’ BUFFER 


025632 012777 177374 153772 MOV #-260. , aRHWC 3256 DATA WORDS 4 HEADER WORDS 

025640 012700 002110 MOV #WRF ROM ,RO THESE TWO INSTRUCTIONS GET 
ADDR. OF WRFROM INTO RO 

025644 010077 153764 RO, @RHBA ;AND BUS ADDRESS REGISTER 


025650 012720 010000 MFMT22,(RO)+ Sen WORDS 
025654 012720 000401 : #401, (RO)+ : TRACK=1, SECTOR=1, KEYS=0 
025660 005020 (RO) + *KEY1=0 

(RO) + SKEY2=0 


005020 
012705 000400 #256. ,R5 ; COUNTER 

012720 052525 : #052525, (RO) + MOVE ALTERNATE ONES FOR DATA 
005305 R5 ; COUNT 

001374 3$ ;BRANCH IF DATA NOT COMPLETE 
012777 000401 153736 #401, @RHDST ; TRACK=1 SECTOR=1 


004737 042654 PC ,@#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 
104401 062450 ~CPHALT {AND THAT NO OTHERS = 1. CANNOT CON- 
025716 000000 :STOP THE TEST 


025720 013711 002064 @4WRIFOR,a@R1 2GET READY FOR WRITE HEADER 
AND DATA ly os IN RHCS1 
025724 005037 002006 a4ERFLGS [CLEAR ERROR F 
012777 010000 153712 MO AFMT22 ,@RHOF SFORMAT BIT= 196° BIT WORDS 
005077 153710 @RHCA ;CYLINDER=0 
025742 004737 052466 PC ,a#COMWHD [WRITE HEADER AND DATA INTO ‘DISK'* CORE 


;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE ‘‘COMWHD'* ROUTINE THAT MEANS ALL HEADER IN 
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:*'DISK'' IS GOOD. DATA IS TO BE CHECKED TO SEE 
T*IF IT IS ALL 052525 AND WRITE DATA GAP AND 
>*TOLERANCE GAP TO SEE IF THEY ARE ALL ZEROS. 


;*RHWC IS CHECKED TO BE = 0 


025746 017737 153660 001126 MOV @RHWC , SBDDAT ; LOAD AND TEST FOR ZERO 

025754 BEQ 6$ ;RHWC SHOULD = 0 

025756 ERROR 40 SRHWC DID NOT = 0 AFTER A WRITE 
[HEADER AND DATA WAS COMPLETED 


:*ONLY ECC1 AND ECC2 ARE NOT CHECKED 


025760 002006 : aFERFLGS sHAVE ANY ERRORS OCCURED? 
TST61 ; BRANCH IF YES 
043044 PC ,@#CHECKE :CHECK THAT BITS = 1 
062450 ,CPHALT [CANNOT CONTINUE TESTING IF THEY DON'T 
:STOP THE TEST 
052422 @AWECC1 CLEAR ECC 
052424 aAwECC2 ZCLEAR ECC 


*FILL ‘REINTO’’ BUFFER WITH EXPECTED DATA 
042536 JSR RO,@#CLAREA sFILL REINTO BUFFER 

REINTO ; FROM 

RE INTO+#<255. *2> :TO 

«WORD 52525 DATA 
042536 JSR RO, @#CLAREA FILL REST 

RE INTO+<256.*2> ;FROM 

RE INTO+<272. *2> :TO 

-WORD 0 DATA 
002006 CLR a#ERFLGS ;CLEAR ERROR FLAG 

3*NOW COMPARE ‘DISK'' BUFFER WITH ‘REINTO'' BUFFER IN CORE 
043514 J RO,@#COMPAR 


HECKED 


“RETURN POINT FOR ERROR DATA 
RETURN FOR GOOD COMPARISON 


RETURN TO COMPAR 

;WORD NOS 1 TO 386 ARE 
DATA WORDS 

;WORD NOS 257 AND 258 
ey WHICH HAVE BEEN 


C 
RETURN TO COMPARE 


WNC TO TC TC TIC Te ee eee eee eee eee eee lull lal ule lelulallulall abbas baba A aka ahahaha a 
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4958 
4959 


5 

5: 
5: 
5: 
5: 
5: 
5: 
>: 
5: 
x 
54 
54 
54 
5 
5 
5 
5 
Si 
5 
5 
5 
5 
5 
5. 
5 
5 
5. 
5 
5. 
5. 
5 
5. 
5. 
5. 
5. 
5. 
5 
5 
5 
5 
5 
5 
5 

5 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 


CZRJGC.P11 


026070 


026124 


026130 


026224 
026230 
026234 
026240 
026242 


026324 


26-JUL~7 


000004 
012706 
012737 


052642 
052652 


012777 


000240 
052777 
004737 
032737 


001404 
013737 


8 10:10 


001000 
000061 


051324 
000460 
177777 


042620 


koe 
002110 
153426 
000403 
010000 


153414 


042654 
062450 


002064 


002006 
010000 
153366 


000001 
000001 
000001 


042224 
002000 


001636 


MACY11 30A(1052) 
T60 


002032 


052642 


052702 


153434 


153370 


153366 
153340 


153330 


001714 
001122 


TST61: 


27-JUL-78 
WRITE HEADER AND DATA 3 


12: ai 


#STACK , SP 


#TTNO,@4TSTNM 


#SECGAP ,RO 
#304. JRi 
#-1, (RO) + 

R1 


1$ 
PC,CLDISK 


9 
PAGE 117 


RESET STACK 
THIS SAVES TEST NUMBER 


:POINTER 
; COUNTER 
; CLEAR DISK AREA TO ALL ONES. 


“THIS IS USED TO SET GENERAL 
SREGISTERS 


ARE TO SET UP FOR DISKLESS USE ONLY 


HFMT22 ,QAWCY 
@AWSECTR 


ARE REGULAR 
#-260. , @RHWC 

AWRFROM,RO 
0,@RHBA 

#259. ,R5 

#FMT22,(RO)+ 
(RO) + 

RS 

2$ 

@RHDST 

PC ,@#CHECKT 

HAL T 


e 


@AWRIFOR ,AR1 
@4ERFLGS 
#FMT 22 ,@RHOF 
@RHCA 
#DMD , ARHMR 
#G0,@RHCS1 
#G0,aRHCS1 


PC ,a@#PUTREG 
#PGE ,aaCS1 


3$ 
@ARHCS2 ,a#$B 


L sFORMAT 22=16 BITWORDS AND 
sCYLINDER 0 
;TRACK=0, SECTOR=0 
sKEY1=0 

sKEY2=0 

3256 DATAWORDS 

:GO TO CALCULATE CRC 


SETUPS 


5256 DATA WORDS 4 HEADER WORDS 
;FROM BUFFER *WRFROM 
IN BUS ADDRESS 


; COUNTER 

[FORMAT =16 BIT WORD 

;CYLINDER=0 

: SECTOR= =0, TRACK=0,KEYS=0, ALL DATA=0 


; COUN 
BRANCH IF ALL 259 NOT COMPLETE 
;TRACK=0, SECTOR=0 


CHECK THAT DVA,RDY,DPR,DRY = 1 
;AND THAT NO OTHERS = 1. CANNOT CON- 
:STOP THE TEST 


GET READY FOR WRITE HEADER 
SAND DATA hy. 62 IN RHCS1 
CLEAR ERROR FLAG 

SFORMAT BIT=1 6 BIT WORDS 
CYLINDER 0 

:SET DIAGNOSTIC MODE 


THIS GO SHOULD SET PGE 


;SAVE REGISTERS 

31S PGE SET 

;BRANCH IF GOOD 
DADR 


SEQ 0116 
SEQ 0115 








M9 
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anig 026332 104037 ERROR 37 PGE DID NOT SET WHEN A WRITE 
5018 026334 


;WAS ATTEMPTED WITH ONE IN PROGRESS 
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CZRIGC P11 26-JUL-78 10:10 T61 PROGRAM ERROR RHCS2 #10 SEQ 0117 


THESE TESTS ARLC THROUGH THE MAINTAINABILITY REGISTER - RHMR 


THE SECTOR GAP AND SYNC hy SE ALWAYS READ A 
ZEROS AND 144000 NO MATTER T IS IN THE SIMULATED DISK AREA 
TAGGED SECGAP: AND WSSYNC: 


THE HEADER CONSISTING OF CYLINDER ADDRESS, SECTOR, 
TRACK AND THE KEYS ARE READ FROM LOCATION 

CYL:, SECTOR:, KEY1:, AND KEY2 AND NOT FROM 
HEADER: ON SIMULATED’ DISK 


CRC IS READ FROM SIMULATED DISK LOCATION WCRC: 
HEADER GAP IS ALWAYS READ AS ZEROS NO MATTER 
WHAT IS ON THE SIMULATED DISK AREA 


THE DATA SYNC IS READ FROM HDWSYN: 
ON SIMULATED DISK 


ALL DATA IS READ FROM SIMULATED DISK DISK: 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 
CZRJGC P11 26-JUL-78 10:10 T61 


000004 
012706 
012737 000062 002032 


012746 
000400 
051422 


153132 
153126 


000001 
153116 


001126 


012620 


B 10 
27-JUL=78 12:41 PAGE 120 
PROGRAM ERROR RHCS2 #10 


ASTACK,SP RESET STACK 
MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 


sDATA Ter BE READ 


“START OF SIMULATED DISK DATA 
[MOVE _IN DATA ON TO SIMULATED DISK 


; COUNT 

BRANCH IF _ NOT COMPLETE 
UNDO -(SP) 

72 ECC WORDS 

CLEAR ECC, DATA GAP, AND 
; TOLERANCE GAP 

7BRANCH IF NOT COMPLETE 
:16 ye PER WORD 


- OF DATA WORDS 


2@AKEY2 
#256. ,QHDAWORD; 
x :THIS IS A READ COMMAND 


ar. 
RS, a@4CRC :GO TO CALCULATE CRC 


PC, @#CLDISK :SETUP GENERAL REGISTERS 

#-256.-4. ,@RHWC 3256. DATA 4 HEADER WORDS 

MREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 

#0,~-(SP) 7 IN LOWER BYTE GET SECTOR 

#0,1(SP) 4-4 TRACK _IN HIGHER BYTE 

(SP) +, @RHDST RACK/SECTOR IN RHDST 

#FMT22!ECI,@RHOF 16 BITS PER WORD 

@RHCA sCYLINDER 0 

PC ,@#CHECKT ‘CHECK. THAT DVA,RDY,DPR,DRY = 1 

~CPHALT SAND THAT NO OTHERS = 1. CANNOT CON- 
:STOP THE TEST 

@A4REFOR,@R1 ;READ HEADER Pay DATA=72 

a4ERFLGS CLEAR ERROR FLAG 

PC ,a@#COMHD [READ HEADER AND DATA 

a tammeagoe ;LOAD AND TEST RHWC 


SHOULD = 
40 SRHWC DOES NOT = 0 AFTER A READ 
rte : ANY co tay te THERE 


T6 

PC, a4 CHECKE *CHECK THAT BITS = 1 

,CPHALT : CANNOT CONTINUE TESTING IF THEY DON'T 
*STOP THE TEST 
*GETTING READY TO FILL EXPECTED DATA 

POEMTOS. tR0)* :CYLINDER 0 

#0,-(SP) :IN LOWER BYTE GET SECTOR 

#0.1(SP) *GET TRACK IN HIGHER BYTE 

(SP)+, (RO)+ [GET TRACK/SECTOR IN BUFFER 


SEQ 0119 
SEQ 


0118 


AMI mI mI RL AL RL AL RL RL AL ML RLM RI ALR RAL ALA ALAR ALAA RAL AL ALALALALALALALAL ALA ALALAALA A 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
CZRJGC.P11 26-JUL-78 10:10 


012720 000000 
000000 
000400 
000000 


043514 


026716 


C 10 
MACY11 30A(1052) 27=JUL-78 12:41 PAGE 
T62 READ HEADER AND DATA 1 


#0,(RO)+ 


121 


;KEY1 IN BUFFER 
sKEY2 IN BUFFER 


;DATA WORD COUNTER 


#0,R 
R2,(RO)+ 
R1 


sDATA 

:DATA INTO BUFFER 

; COUNT 

BRANCH IF 256 NOT DONE 


3$ ; 
RO, @4COMPAR ; CHECK 
;GOOD BUFFER 


HE CKED 
=RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 


4 
“RETURN TO *'COMPAR'' 


SEQ 0120 


SEQ 0119 





rs 
4 
6 
a 
c 
4 
é 
- 
é 
a 
é 
a 
é 
a 
c 
4 
¢ 
4 
é 
4 
é 
4 
« 
£ 
4 
é 
4 
é 
4 
é 
r 
4 
‘ 
‘ 
é 
4 
é 
‘ 
i 
‘ 
‘ 
‘ 
é 
‘ 
i 
i 
i 
i 
i 
‘ 
r 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
‘ 
| 
\ 
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026720 000004 TST63: 
026722 012706 001000 MOV STACK , SP sRESET STACK 
026726 012737 000063 002032 ATTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
012746 177777 #-1,-(SP) ;DATA_TO BE READ 
#256. .R5 TER 


000400 ; COUN 
051422 #DISK,RO START OF SIMULATED DISK DATA 
| ae , (RO) + zMOVE IN DATA ON TO SIMULATED DISK 


OUN 
;BRANCH 7 256 NOT COMPLETE 


LAL ALA ALAA A 


; WORD 
[CLEAR ECC, DATA GAP, AND 
TOLERANCE GAP 
2s BRANCH IF NOT COMPLETE 
047504 MO!FMT22,aACYL ; 16 | ~s PER WORD 
#O,@MSECOTR+1 ; K 0 
#1 ,@A#SECOTR 
#0 ,QAKEY1 
#0 ,Q@AKEY2 ; 
047564 #256. ,aMDAWORD :NO. OF DATA WORDS 
ax :THIS IS A READ COMMAND 
R5,aA#CRC [GO TO CALCULATE CRC 


PC, a#CLDISK :SETUP GENERAL REGISTERS 

152546 #-256.-4.,@RHWC :256. DATA 4 HEADER WORDS 

152542 WREINTO,@RHBA  :STARTING ADDRESS OF READ BUFFER 
#1,-(SP) ‘IN LOWER BYTE GET SECTOR 

000001 #0.1(SP p) ;GET TRACK IN HIGHER BYTE 
(SP)+,@RHDST | :TRACK/SECTOR IN RHDST 

152532 aEMTQONECI. @RHOF ;16 BITS PER WORD 
@RHCA : CYLINDER 0 
PC, a#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 
.CPHALT ‘AND THAT NO OTHERS = 1. CANNOT CON- 


@AREF OR ,@R1 
@FERFLGS 

PC ,@4#COMHD 
@RHWC , SBDDAT 
20$ 


; SHOUL 
40 RHWC DOES NOT = 0 AFTER A READ 
— ANY ERRORS ~ THERE 


SBRANCH IF YES 
PC, ACHE CKE ‘CHECK THAT BITS = 1 
 CPHALT ‘CANNOT CONTINUE TESTING IF THEY DON'T 
‘STOP THE TEST 
RO “GETTING READY TO FILL EXPECTED DATA 
mOrFMre, (RO)+ :CYLINDER 0 
#1,-(SP) :IN LOWER BYTE GET SECTOR 
000001 #0.1(SP) *GET TRACK IN HIGHER BYTE 
(SP) +, (RO) + :GET TRACK/SECTOR IN BUFFER 
#0, (RO)+ BUFFER 
#0, (RO)+ 
012701 #256. .R1 “DATA WORD COUNTER 
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027242 012702 177777 #-1,R2 DATA 
910220 3$: R2, (RO. + ee BUF FER 


R1 ; 
3$ ;BRANCH IF 256 NOT DONE 
043514 RO, @4#COMPAR ; CHECK 
:GOOD BUFFER 
TEST BUFFER 
NUMBER OF WORDS CHECKED 
RETURN POINT FOR ERROR HEADER 
+ RE TURN POINT FOR ERROR DATA 


;RETURN TO ‘'COMPAR’' 


p 
5 
5 
5 
5 
5 
5 
5 
5 
5 
§ 
§ 
§ 
g 
§ 
5 
5 
5 
§ 
§ 
§ 
§ 
§ 
g 
g 
< 
§ 
§ 
§ 
‘ 
4 
é 
‘ 
§ 
§ 
§ 
§ 
‘ 
4 
‘ 
‘ 
4 
s 
4 
4 
‘ 
4 
§ 
‘ 
s 
c 
: 
: 
c 
é 
é 
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On 
mrs 
27D 


027304 000004 TST64: 
027306 012706 001000 MO STACK , SP ;RESET STACK 
027312 012737 000964 MTTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 


012746 052525 #052525,-(SP) ;DATA TO BE READ 
000400 #256. .R5 COUNTER 


051422 #D1SK,RO [START OF SIMULATED DISK DATA 
: (3?) , (RO) + MOVE IN DATA ON TO SIMULATED DISK 


; COUNT 
BRANCH IF — NOT COMPLETE 
see. -(SP) 
:2 ECC WORDS 
[CLEAR ECC, DATA GAP, AND 
; TOLERANCE GAP 
2$ “BRANCH IF NOT COMPLETE 
#O!FMT22,a#CYL ;16 BITS PER WORD 
#1,Q@4SECOTR+1 ;TRACK 1 
#1 ,@4SECOTR SECTOR 1 
#0 ,Q4KEY1 zKEY1=0 
#0 ,@AKEY2 KEY2=0 
#256. . @#DAWORD NO. OF DATA WORDS 
:THIS IS A READ COMMAND 
RS. @4CRC :GO TO CALCULATE CRC 


PC, a#CLDISK sSETUP GENERAL REGISTERS 
152162 #-256.-4.,aRHWC :256. DATA 4 HEADER WORDS 
152156 WREINTO,@RHBA  :STARTING ADDRESS OF READ BUFFER 
: ‘IN LOWER BYTE GET SECTOR 
000001 [GET TRACK IN HIGHER BYTE 
(SP)+,@RHDST § :TRACK/SECTOR IN RHDST 
152146 #FMT22'ECI, @RHOF ” :16 BITS PER WORD 
@RHCA YLINDER 0 
PC, a#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 
CPHALT [AND THAT NO OTHERS = 1. CANNOT CON- 
*STOP THE TEST 
@PREFOR,@R1 SREAD HEADER AND DATA=72 
=CLEAR ERROR FLAG 
[READ HEADER AND DATA 
001126 es ‘LOAD AND TEST RHWC 


SHOULD = = 
;RHWC DOES NOT = 0 AFTER A READ 
s ANY ies ALREADY THERE 


TST65 H IF 
PC ,@#CHECKE * CHECK THAT BITS = 1 
|. CPHALT : CANNOT CONT INUE TESTING IF THEY DON'T 
‘STOP THE TEST 
RO *GETTING READY TO FILL EXPECTED DATA 
oO: FInT26, (RO)+ :CYLINDER 0 
#1,-(SP) :IN LOWER BYTE GET SECTOR 
#1.1(SP) ‘GET TRACK IN HIGHER BYTE 
(SP)+, (RO) + ;GET TRACK/SECTOR IN BUFFER 
#0, (RO)+ SKEY1 IN BUFFER 
#0,(RO)+ sKEY2 IN BUFFER 
027622 012701 #256. ,R1 [DATA WORD COUNTER 


Tete Te Te Te Te Te Te 10 Te Te 1 6 Te Te 16 Oe ee Te Pe ee Te Te ele Lele leet sl al eab abel eal eal eal ala leah al sl ak a al dl a a kd 
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027626 012702 052525 #052525,R2 
010220 3$: ~ f (RO: + 


BNE 3$ 
043514 RO, @#COMPAR 


10 
PAGE 125 
READ HEADER AND DATA 3 


DATA Into. BUFFER 
; COUNT 
BRANCH IF 256 NOT DONE 


NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 


= RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
[READ NEXT ERROR 

[RETURN TO "‘COMPAR'' 


:WORD NOS 1 TO 4 ARE 
RETURN TO *‘COMPAR’’ 


SEQ 0124 
SEQ 0123 


WMA ann 


Mem ow be et 
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CZRJGC.P11 26-JUL~-78 10:10 T64 D HEADER AND DATA 3 SEQ 0124 


027670 000004 TST65: 
027672 012737 002032 MTTNO,@A4TSTNM =; THIS SAVES TEST NUMBER 


#STACK , SP RESET STACK 
MTTNO,QA4TSTNM = ;THIS SAVES TEST NUMBER 
RO, @4CLAREA ding SIMULATED DISK 


DISK : 
wpetieg ares 


:DAT 
#O!FMT22,aACYL; CYLINDER 0 

#0, aFSECOTR+T: TRACK 0 

#0. a#SECOTR 

@AKEY1 

@AKEY2 ; 0 
047552 #256. ,@#NOWORD :NO OF ea WORDS 
047514 #1 GX WRITE DAT 

RS ,a#CRC :GO TO CALCULATE CRC 


RO,@4#CLAREA FILL WRITE BUFFER WITH 377 
WRF ROM FROM LOCATION 
oer *2> ao 


:DATA 
PC ,@#CLDISK 5 Hye REGISTERS 
151604 7256. A WORDS 

151600 ROM, aR ‘STARTING ADDRESS OF WRITE BUFFER 


SECTOR 0 
000001 ; TRACK 0 
ZSECTOR 0 TRACK 0 
151570 #FMT22, @RHOF 716 BITS PER WORD FORMAT 
151564 #0, aRHCA [CYLINDER 0 
PC ,@#CHECKT CHECK THAT DVA,RDY, DPR DRY = 1 
-CPHALT ZAND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 
@AWRIDAT ,aR1 [WRITE DATA=60 
ZCLEAR ERROR FLAG 
WRITE DATA 
SAVE REGISTERS 
SHAVE ANY ERRORS OCCURED? 
BRANCH IF YES 
:GOOD DATA 
DATA WRITTEN INTO ‘DISK"’ 
#256. ,R2 ; COUNTER 
047624 1$: +1, [FOR ERROR WORD 
R1)+ ;COMPARE GOOD DATA WITH DATA ON DISK 
BRANCH IF GOOD 
:GOOD DATA 
:BAD DATA 
ERROR WORD NO 
sANY ERRORS ALREADY THERE? 
BRANCH IF YES 
ERROR ON WRITE DATA COMMAND 
[BRANCH TO AVOID PRINTING NEXT FRROR 
;WORD NO GIVES WORD IN ERROR 





CZRJGCO,RPO4/5/6 DSKLS CTRLRI 
CZRIGC.P11 26-JUL=78 10:10 


150726 
177177 
000200 


030226 


MACY11 30A(1052) 
T65 WR 


64$: 


I 
27-JUL=78 12:41 
ITE DATA 


(R1)+ 
@aSwWR ,- <SP) 
#177177, (SP) 
#SWw07, (SP) + 
TST66 

R2 

1$ 


10 
PAGE 127 


;UNDO -(R1) FOR BAD DATA 
GET SWITCH SETTING 

KEEP ONLY SWITCH 7 AND 8 
31S 7 SET AND 8 RESET 


;BRANCH IF 256. NOT DONE 


SEQ 0126 
SEQ 0125 


5 
5 
5) 
5 
5. 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 





CZRJGCO,RPO4/5/6 DSKLS CTRLRI 


CZRJGC.P11 


26-JUL-78 10:10 


000004 
012706 001000 


012737 000066 002032 
004037 042536 


047504 
047506 


047564 


151252 
151246 


000001 
151236 


005737 


MACY11 30A(1052) 
165 WR 


TST66: 


J 10 
27-JUL-78 12:41 PAGE 128 SEQ 0127 
ITE DATA SEQ 0126 


#STACK, SP RESET STACK 


MTTNO,@4TSTNM = ;THIS SAVES TEST NUMBER 
= gaara ott SIMULATED DISK 


DISK 
DISK+776 3T0 
177400 ;DATA 


RO,@4CLAREA ;CLEAR READ INTO BUFFER 
REINTO ;FROM 
en ; 


3:70 
;DATA 
ARE TO SETUP FOR DISKLESS USE ONLY 


#FMT22 ,AACYL :CYLINDER 0 16 BITS PER WORD FORMAT 
@#SECOTR+1 ; TRACK 0 

#1 ,@ASECOTR 

@AKEY1 


@AKEY2 ;KE 

#10.,@4DAWORD  :NO. OF DATA WORDS 

aX THIS IS A READ COMMAND 
R5,a4CRC 7GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC ,@#CLDISK SETUP GENERAL REGISTERS 
@4READAT .AR1 ;READ DATA INTO RHCS1=70 

#~-10. ,aRHWC 310 DATA WORDS 

#REINTO,@RHBA STARTING ADDRESS Oecton ren 


@RHDST RACK/SECTOR IN RHDST 
#EMT2S'ECI. @RHOF’ 16 BITS PER WORD 
sECC CORRECTION INHIBIT BECAUSE 
sECC IS NOT CHECKED HERE 
@RHCA CYLINDER 0 
PC ,@#CHECKT SCHECK THAT DVA,RDY,DPR,DRY = 1 
~CPHALT AND THAT NO OTHERS = 1. CANNOT CON- 
:STOP THE TEST 
a#ERFLGS : CLEAR ors FLAG 
PC ,a@#COMHD ;READ DAT 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
7 *FROM "'COMHD'’ ROUTINE IN MEANS DATA IS TO BE CHECKED 


7*NOW THE DATA READ INTO ‘REINTO'’ BUFFER WILL 

:*BE CHECKED, ONLY 10 WORDS SHOULD BE CHANGED 

;*ALL OTHER WORDS SHOULD REMAIN UNCHANGED 

3*THE ‘WRFROM'’ BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED 


TST a#ERFLGS HAVE ANY ERRORS OCCURED? 





MOOAUMAAMAAMA AU AIA AAAI VI 
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CZRIGC.P11 26-JUL-78 10:10 T66 READ DATA 


BNE TST67 
042536 JSR RO, @#CLAREA 


WRF ROM 
_ ROM+776 


JSR RO, @4CLAREA 
WRF ROM 

WRF ROM+22 

177400 


#WRF ROM ,RO 
#REINTO,R1 


047624 1$: 
RO) +, (R1)+ 


-(RO) ,@#SGDDAT 
-(R1) 24 SBDDAT 


022021 : a (R1)+ 


,-(SP) 


aSwR 
#177177, (SP) 
#SWO7, (SP) + 


TST67 
R2 
1$ 


10 
PAGE 129 


; BRANCH IF YES 
; CLEAR BUFFER 
FROM 


“TO 
sDATA 


FILL EXPECTED DATA 
FROM 


:TO 
DATA 
*NOW READ DATA BUFFER IS CHECKED 


+ GOOD DATA 


WORD NO 
= COMPARE GOOD WITH READ BUFFER 


BRANCH IF GOOD 


:GOOD DATA 
DATA 


ERROR WORD NO 
sANY ERRORS ALREADY THERE 
IF YES BRANCH Rie gs TYPE HEADER 


ERROR ON READ DAT. 
[BRANCH TO AVOID PRINTING NEXT ERROR 
;WORD NO 1-10 ARE DATA 


: WORDS 

= WORD NOS 11-256 HAVE NOT BEEN 
;READ AND BUFFER SHOULD BE 
[ZERO IF OTHER THAN ZERO 
[WRONG NUMBER OF WORDS HAVE 
BEEN READ IN THE DISK NOW 
CONTAINS 177400 ALL 256 


:WORDS BUT ONLY 10 WORDS 
SHOULD BE READ IN 


;UNDO -(RO) AND -(R1) FOR ERROR 
GET SWITCH SETTING 

[KEEP ONLY SWITCH 7 AND 8 

31S 7 SET AND 8 RESET 

BRANCH OUT IF YES 


: COUNT 
[BRANCH IF NOT COMPLETE 


SEQ 0128 
SEQ 0127 





CZRJGCO,RPO4/5/6 DSKLS CTRLRI 


CZRJGC.P11 26-JUL-78 


012706 
012737 


012701 


051470 
070707 


177777 
004737 


10:10 


177776 
003234 


177776 
051472 


MACY11 30A(1052) 
T66 


L 10 
Saag -78 12:41 PAGE 130 
READ D 


SCOPE 


DATA TABLE 

20 WORDS OF eto 

THEN 16 WORDS WITH ZERO FLOATING FROM RIGHT 
TO LEFT (EG. 177776, 177775177773 ETC) 


MOV MSTACK , SP RESET STACK 
MOV MTTNO,@ATSTNM =; THIS SAVES TEST NUMBER 


:*SET UP ‘REINTO’’ FOR WHAT IS TO BE READ 

MOV #REINTO,R1 ;STARTING ADDRESS 
#FMT22, (R1)+ sCYLINDER O FORMAT 16 BIT WORDS 
#401, (R1)+ : TRACK=1, SECTOR=1 
(R1)+ sKEY1=0 
(R1)+ KEY Y2=0 
RO, @4CLAREA FILL *REINTO’’ BUFFER 
RE INTO+<4*2> 7FROM 
REINTO+<23.*2> ;TO 
070707 [DATA 


#177776,R0 ;GETTING READY TO FLOAT 0 
#RE INTO+<24.*2>,R1; STARTING ADDRESS WHERE 177776 GOES 
RO, (R1)+ ;MOVE IN FLOATING 0 
SET CARRY 
RO GET O ONE BIT LEFT 
1$ [BRANCH IF 16 NOT DONE 


RO, @4CLAREA sFILL THE REST OF BUFFER WITH 0 
REINTO+<40.*2> ;FROM 

RE INTO+776 3T0 
0 :DATA 


UP SIMULATED DISK WITH WHAT IS TO BE READ 
RO, @#CLAREA sFILL ‘DISK** BUFFER 
DISK ;FROM 
DISK+<19.*2> :TO 
070707 :DATA 

#177776,RO ;GETTING READY TO FLOAT ZERO 

#D1SK+<20, *2>,R1:STARTING ADDRESS WHERE 157796 GOES 

RO, ( MOVE IN FLOATING 0 

SET CARRY 


E 
RO [GET 0 ONE BIT LEFT 
2s ;BRANCH IF 16 NOT DONE 


RO, @4CLAREA sFILL THE REST OF BUFFER WITH 177777 
DISK+<36. *2> >FROM 

DISK+776 TO 

177777 DATA 


PC ,@#WRCHHD WRITE CHECK HEADER AND DATA 


SEQ 0129 
SEQ 0128 





6C 
6C 
6c 
6( 
6 
6C 
font 
6( 
6 
66 
fos 
6 
6 
6( 
6 
6( 
6( 
6( 
6( 
6( 
6 
6( 
6 
6 
fo 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6( 
6 
6 
6 
6 
6 
6 
6 
6 
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CZRJGC P11 26-JUL~78 


013746 


002166 
070707 
012700 
012701 
010021 


006100 
103774 


000400 
031112 


10:10 167 WRITE CHECK HEADER AND DATA 
CYLINDER 0, TRACK 1, SECTOR 1 


:*I1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
:*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TO BE TESTED 


@AUNIT , = (SP) :GET UNIT NUMBER 

#IR, (SP) ONLY BIT 6 SHOULD BE SET 
PC ,@#PUTREG SAVE REGISTERS 

ia an [COMPARE RHCS2 


BRANCH IF GOOD 

sWRITE CHECK ERROR HIGH? 

BRANCH IF ERROR NOT DUE TO ‘WCE’ 
;RHDB CONTAINS FAILING WORD 

;RHBA CONTAINS ADDRESS+2 

OF THE WORD IN MEMORY FROM 

THE DISK THAT DID NOT COMPARE 
ite AND SC WILL BE SET DUE TO 


i WCE goog A. WAS NOT SET BUT SOME 
:BITS OTHER THAN IR 
:AND UNIT NO. WAS SET 


:*NOW CHECK MEMORY TO SEE IF NOTHING GOT DESTROYED 
:*FILL ‘WRFROM'’ WITH WHAT SHOULD BE IN ‘REINTO’’ THEN CHECK 


#WRF ROM, RO sSTARTING ADDRESS 
#FMT22,(RO)+ 


sCYLINDER 
#401, (RO) + r =1, SECTOR=1 
(RO)+ ;KEY1=0 
(RO) + ;KEY2=0 


RO, @#CLAREA FILL ‘WRFROM'’ BUFFER 
WRF ROM+<4*2> ;FROM 

WRFROM+<23.*2> ;TO 
070707 DATA 


177776 #177776,R0 ;GETTING READY TO FLOAT 0 
002170 #WRFROM+<24.%2>,R1 ;STARTING ADDRESS WHERE 177776 GOES 
2 MOV RO, (R1)+ ;MOVE IN FLOATING 0 
SET CARRY 
RO GET O ONE BIT LEFT 
5$ BRANCH IF 16 NOT DONE 


RO,@4CLAREA sFILL THE REST OF BUFFER WITH O 
URE ROMS <40. *2> ;FROM 

WRF ROM+776 3:TO 
0 :DAIA 


;*NOW THE READ BUFFER WILL BE CHECKED 
CLR @#ERFLGS ;CLEAR ERROR FLAG 


JSR RO, @4#COMPAR ; CHECK 

WRF ROM :GOOD BUFFER 

REINTO TEST BUFFER 

256. 7NUMBER OF WORDS CHECKED 
:RETURN POINT FOR ERROR HEADER 


SEQ 0130 
SEQ 0129 


oC 
6C 
6C 
6C 
6C 
6C 
aC 
oC 
6C 
aC 
6C 
6C 
6C 
6C 
6C 
a 
a 
a 
a 
oat 
root 
a 
a 
aC 
aC 
foot 
6 
6C 
6 
6 
6 
ro 
ro 
6 
aC 
6 
6 
6 
ro 
of 
6 
road 
roa 
6 
6 
6 
& 
ro 
foie 
6 
6( 
6 
6( 
6( 
6 
6( 
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031116 7$ ;RETURN POINT FOR ERROR DATA 
RETURN FOR GOOD COMPARISON 
READ NEXT ERROR 5 
;RETURN TO COMPARISON SUBROUTINE 
sDATA IN REINTO BUFFER GOT 
; CHANGE TER 


ED 
“RETURN TO COMPARISON SUBROUT INE 
031122 : ONLY A BRANCH POINT 
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26-JUL=78 10:10 


CZRJGC.P11 


031124 


031126 
031132 


031140 


031174 
031176 


031224 
031226 


031244 
031246 


031256 
031260 


000004 


012706 
012737 


006100 
103774 


004037 
003254 
52 


006100 
103774 
004037 


051522 
052420 
000000 


004737 


001000 
000070 


000001 
003154 


177776 
003214 


000001 
051422 


177776 
051462 


042536 


043656 


B11 
MACY11 30A(1052) 27=JUL-78 12:41 PAGE 133 
167 WR 


002032 


ITE CHECK HEADER AND DATA 


TST70: SCOPE 


;*DATA TABLE 
; *TOTAL OF 32 WORDS ged lee - 

*16 WORDS OF FLOATING ONES (EG. 10) 
i416 WORDS OF FLOATING ZEROS (EG. "575976. 177775) 


MOV ASTACK, SP RESET STACK 
MOV MTTNO,QATSTNM = ;THIS SAVES TEST NUMBER 


7*SET UP ‘REINTO’’ FOR WHAT IS TO BE READ 


#1,R0 GETTING READY TO FLOAT 1 
#REINTO,R1 STARTING ADDRESS WHERE 1 GOES 
RO,(R1)+ s;MOVE FLOATING 1 
RO :GET 1 ONE BIT LEFT 
1$ ;BRANCH IF 16 NOT ont 
#177776,RO GETTING READY TO FLOAT 0 
#REINTO+<16.*2>,R1 ;STARTING ADDRESS WHERE 177776 GOES 
RO, (R1)+ :MOVE IN FLOATING 0 

;SET CARRY 


RO [GET 0 ONE BIT LEFT 
2$ “BRANCH IF 16 NOT DONE 


RO, @A#CLAREA sFILL REST OF BUFFER WITH 1 
REINTO+<32.*2> ;FROM 

RE INTO+776 :T0 

1 zsWITH DATA 


:*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 


#1,R0 GETTING READY TO FLOAT 1 
ADISK,R1 ZSTARTING ADDRESS WHERE 1 GOES 
RO, (R1)+ SMOVE FLOAT 1 

RO :GET 1 ONE BIT LEFT 

3$ BRANCH IF 16 NOT DONE 


#177776,R GETTING READY TO FLOAT 0 
wDiIsKecio *2>, R1 ;STARTING ADDRESS WHERE 177776 GOES 
RO, (R1)+ MOVE FLOATING 0 


3$ 
RO GET 0 ONE BIT LEFT 
4$ [BRANCH IF 16 NOT DONE 


RO, @4CLAREA FILL REST OF BUFFER WITH O 
DISK+<32.*2> ;FROM 
ssn ; 


:TO 
WITH DATA 


PC ,Q@4#WRCHDA WRITE CHECK DATA 
;CYLINDER_O, sep 1, SECTOR 1 
SKEYS 0, 32 WOR 


;*IF THE PROGRAM COMES BACK HERE THEN WRITE CHECK 


SEQ 0132 


SEQ 0131 
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;*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TESTED 


013746 001774 @AUNIT = (SP) GET UNIT NUMBER 
000100 #IR, (SP) 
042224 PC ,@4#PUTREG 
001712 (SP) +, a#CS2 


6 ;BRANCH IF GOOD 
040000 001712 MWCE ,@#CS2 ;WRITE CHECK ERROR HIGH? 
5$ BRANCH IF ERROR NOT DUE TO ‘WCE"' 
17 ;RHDB CONTAINS FAILING WORD 
031320 0004 BR 6$ ;RHBA CONTAINS ADDRESS+2 
[OF THE WORD IN MEMORY FROM 
THE DISK THAT DID NOT COMPARE 
TRE AND SC WILL BE SET DUE TO WCE 
031322 : SWCE WAS CORRECTLY NOT SET 
;BUT SOME BITS OTHER THAN 
IR AND UNIT NO. WERE SET 


z*NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
7*FILL ‘WRFROM'' WITH WHAT SHOULD BE IN REINTO THEN CHECK IT 


031324 : aFERFLGS ;CLEAR ERROR FLAG 
#1 ,RO GETTING READY TO FLOAT 1 
START ADDRESS WHERE 1 GOES 
sMOVE FLOATING 1 
GET 1 ONE BIT LEFT 
;BRANCH IF 16 NOT DONE 


177776 #177776,RO0 GETTING READY TO FLOAT 0 
002150 #WRFROM+<16.*2>,R1 ; STARTING ADDRESS WHERE 177776 GOES 
RO, (R1)+ ;MOVE IN FLOATING 0 
SET CARRY 
006100 RO GET O ONE BIT LEFT 
103774 10$ SBRANCH IF CARRY SET 


004037 042536 RO, @A#CLAREA FILL REST OF BUFFER WITH 1 
002210 WRFROM+<32.*2> ;FROM 

003106 . WRF ROM+776 :TO 

000001 1 sWITH DATA 


;*NOW THE READ BUFFER WILL BE CHECKED 


004037 043514 JSR RO, a#COMPAR 
002110 FROM 


003154 ER 

000400 . NUMBER OF WORDS CHECKED 

031420 ;RETURN POJNT FOR ERROR HEADER 
031414 031424 RETURN POINT FOR ERROR DATA 


031416 031432 RETURN FOR GOOD COMPARISON 


031420 104004 : ;READ NEXT ERROR 5 
031422 000207 R ;RETURN TO COMPARISON SUBROUTINE 
031424 104005 : ;DATA_IN REINTO BUFFER GOT 
CHANGED AFTER A WRITE 
CHECK DATA COMMAND 


oO 
MN 
oI 


¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
¢ 
( 
¢ 
( 
¢ 
¢ 
¢ 
( 
( 
¢ 
( 
¢ 
( 
¢ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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031426 000207 
031430 000240 


MACY11 30A(1052) 
T70 


27-JUL-78 
WRITE CHECK 


D 
12:41 


DATA 


1 
PAGE 135 SEQ 0134 


SEQ 0133 
; WORD . CONTAINS THE WORD 
[NUMBER THAT GOT CHANGED 
RETURN TO COMPARISON SUBROUTINE 


ONLY A BRANCH POINT 





aa 
NN 
> oo) 


a_i FR FR RADA AP AAA MAF AA AAA AAAMAAMAAMAA MAAMA OR 


CZRJGCO,RPO4/S/6 DSKLS gisee) 


CZRIGC.P11 


031432 


031462 


031464 
031470 


031514 
031520 


031544 
031550 


031626 


26-JUL-78 1 


013720 


012737 
012737 


004 
120537 


001401 
104020 


013746 


031556 
000003 
003154 
000001 
000040 
001774 


042224 
091732 


MACY11 30A(1052) 
170 


E 11 
27-JUL-78 12:41 PAGE 136 
WRITE CHECK DATA 


SEQ 0135 
SEQ 0134 


.SBTTL ERROR BIT FUNCTIONAL TESTS 


TST71: 


002032 


1$: 
150052 2$: 
150044 


MSTACK , SP 
#TTNO,@4TSTNM 
PC ,@#CLDISK 
PC ,@#CHECKT 
,CPHALT 


#REINTO,RO 


@ARHERT , (RO) + 
#0, (RO)+ 
@ARHER2, (RO) + 


#0, (RO)+ 
@ARHERS, (RO) + 
#0, (RO)+ 


@ARHAS ,R4 
@4ATTENT ,R5 
#2$ ,AASLPERR 


#3, a4STMP1 
#REINTO,RO 


(RO) +,R2 
#BITO,R1 
#CLR,@RHCS2 
@AUNIT , @RHCS2 
R1,aR 


@4DS1,- (SP) 
#VV'!PROG, (SP) 


#ATA!ERR'DPR!DRY. 
4$ 


20 


RESET STACK 
THIS SAVES TEST NUMBER 


CLEAR DISK REGISTERS 

7CHECK THAT DVA,RDY,DPR,DRY = 1 

[AND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 


;BUFFER STARTING FOR 3 ERROR 
REGISTERS 
zRHER? STORED IN REINTO 


;BITS_NOT TO BE CHECKED IN RHER1 
;RHER2 STORED IN REINTO+4 

[BITS NOT TO BE CHECKED IN RHER2 
SRHER3 STORED IN REINTO+10 

:BITS NOT TO BE CHECKED IN RHER3 


7R4 HAS RHAS 

:R5 HAS ATA BIT IN RHAS 
THAT SHOULD SET WITH ERROR 
RETURN POINT TO ERROR 
ERROR REGISTER COUNTER 
REGISTER BUFFER POINTER 


7R2 HAS ADDRESS OF ERROR REG 
;R1 WILL HAVE BIT UNDER TEST 
CLEAR RHCS2 

sREINSTATE UNIT NO. 


7SET ERROR BIT 
READ AND SAVE REGISTERS 
ZOMLY THE 81 BIT IN R5 SHOULD BE 


LOOK @ RHDS1 IF GOOD 

WITH THE SETTING OF ONE 
ERROR BIT IN AN ERROR 
REGISTER, THE CORRESPONDING 
;RHAS BIT DID NOT SET 


GET RHDS1 


REMOVE VV AND PROG 
(SP)+;THESE BITS PLUS VV SHOULD BE IN RHDS1 
CHECK "GO* NEXT, IF THIS WAS OK 


; HER 
PERMANENT BITS DID NOT SET 


ao 
MN 
DD 


oR OR OR OR OR CR OR DR OD FR ED OD OR ROD FR DONS FR FDR ODED FD ROR OD ORO OO OOO” 
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ale) 
SN 
po *) 


oo 


012777 000001 150002 4$: #G0,@RIiCS1 GIVE NO-OP 
2224 PC ,@4#PUTREG SAVE REGISTERS 
R1,@R2 :60 SHOULD NOT CLEAR ERROR 
5$ ;FURTHER CHECK OF ‘GO* FUNCTIONALITY 
R2,@#REGADR FAILING Bees 
24 R1,@4#$GDDAT : GOOD oH 
091712 001126 MOV a#(S2,a#$BDDAT :BAD DAT 
1 :"'GO"' WITH NO-OP CHANGED 
ERROR REGISTER 


001736 : @4DS1,-(SP) GET RHDS1 
001100 #VV'PROG, (SP) CLEAR VV AND PROG 
140600 HATA!ERR!DPR! DRY, (SP)+;GO SHOULD NOT CLEAR ANY BITS 
7$ CHECK NEXT ERROR BIT IF A-OK 
20 "go" WITH NO-OP SHOULD NOT CLEAR 
ATA AND/OR ERR 


3*THIS IS THE MAIN BIT TESTING CONTROL LOvIC 


7$: R1 :GET NEXT BIT TO THE LEFT 
10$ ;GO ON TO NEXT ye tt DONE 


(RO) ,R1 :IS THIS BIT TO . i 
7$ IF NOT, GET NEXT ONE 
031716 2$ :IF TO BE TESTED, GO DO IT ! 


031720 : (RO) + zsADVANCE RO TO NEXT ERROR REG. 
031722 a4$TMP1 ;REGISTER COUNTER 
031726 BNE 1$ ;DO NEXT ONE, IF 3 NOT COMPLETE 


;*NOW AFTER SETTING ATA IN RHDS1 “I"* IN RHAS AT THE 
;*DRIVE POSITION SHOULD CLEAR ATA IN RHDS1 


11$: PC ,@#CLDISK CLEAR 
001110 #11$,$LPERR ERROR RETURN 
A-1,aR4 SET BIT IN RHAS AND ATA IN RHDS1 
147702 @A4ATTENT,@RHAS ;WRITE 1 INTO DRIVE BIT POSITION 
PC ,a#PUTREG SAVE REGISTERS 
ee ; THIS SHOULD BE ZERO 
20 MOVING A ‘I’ INTO RHAS 
;AT THE DRIVE BIT POSITION 
:DID NOT CLEAR IT 


031770 013746 : @4DS1,-(SP) GET RHDS1 

031774 042716 001000 #PROG, (SP) ;MASK PROGRAMABLE 

032000 022726 040700 #ERR!VV'DPR!DRY, (SP) 
:RHDS SHOULD HAVE THESE BITS 
;BUT ATA SHOULD BE CLEARED 

032004 001401 BEQ 13$ :CHECK RHER1 IF GOOD 

032006 104020 20 [MOVING ''I'' INTO RHAS AT THE 
DRIVE BIT POSITION DID NOT 
CLEAR ATA IN RHDS1 


PRR} PRO} ARORA ORO OROR ROR ERAR ARE AAA AAA AA OAR OA OWA OW OW OO OO OOO OOOO O OW OO OOOO 
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032010 022737 177777 001716 138: CMP #-1,a4CR1 ;RHER1 SHOULD NOT CHANGE 
BY CLEARING RHAS 

032016 001401 BEQ TST72 BRANCH IF GOOD 

032020 104020 ERROR 20 sRHER1 WAS CHANGED BY oe 
;RHAS BY MOVING ‘'I'' IN 
THE DRIVE BIT POSITION. 


6. 
6. 
6. 
6. 
6. 
6. 
6: 
6. 
6. 
6. 
6. 
6: 
6: 
6. 
6: 
6. 
6. 
6: 
6. 
6: 
6 
6 
6 
6 
6 
6 
6 
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032022 000004 TST72: 
012706 001000 MOV AMSTACK, SP RESET STACK 


012737 000072 002032 MTTNO,@ATSTNM =; THIS SAVES TEST NUMBER 
004037 042536 RO, @#CLAREA : CLEAR SIMULATED DISK 


DISK 
DISK+776 :TO 
177400 DATA 


RO, @4CLAREA ;CLEAR READ INTO BUFFER 
RE INTO FROM 

RE INTO+776 :T0 
0 :DATA 


ARE TO SETUP FOR DISKLESS USE ONLY 


047504 #FMT22 ,QACYL ;CYLINDER 0 16 BITS PER WORD FORMAT 
@ASECOTR+1 ; TRACK 0 

047506 #1, Q4SECOTR 
@AKEY1 


@AKEY2 KEY2=0 
047564 #10. ,@#DAWORD “NO. OF DATA WORDS 

@AX :THIS IS A READ COMMAND 
R5,a4#CRC 3GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC ,a@#CLDISK SETUP GENERAL REGISTERS 
@AREADAT ,aR1 ;READ DATA INTO RHCS1=70 
147460 4-10. ,dRHWC 310 DATA WORDS 
147454 MREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
#1,~(SP) IN LOWER BYTE GET SECTOR 1 
000001 #0, ig t 4-4 TRACKO IN UPPER BYTE 
(SP) +, @RHDST RACK/SECTOR IN RHDST 
014000 147444 #PMTOS"ECI @RHOF” "6 BITS PER WORD 
sECC CORRECTION INHIBIT BECAUSE 
ECC IS NOT CHECKED HERE 
147442 @RHCA CYLINDER 0 
042654 PC ,@#CHECKT CHECK THAT DVA,RDY.DPR,DRY = 1 
062450 ~CPHALT ZAND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 
147406 #BAI , @RHCS2 [SET BUS — INHIBIT 
@4ERFLGS ;CLEAR ERROR FLAG 
047344 PC ,a@#COMHD [READ DATA 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
;*FROM *'COMHD'' ROUTINE IN MEANS DATA IS TO BE CHECKED 


:*NOW THE DATA READ INTO ‘REINTO’’ BUFFER WILL 

;*BE CHECKED, ONLY ONE WORD SHOULD BE CHANGED 

*ALL OTHER WORDS SHOULD REMAIN UNCHANGED 

7*THE ‘WRFROM'’ BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED 


64 
64 
64 
6 
6 
& 
& 
& 
6 
6 
6/ 
6 
6 
io 
& 
6 
6 
6 
6 
6 
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6 
6 
6 
6 
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6 
6 
6 
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C2RJGC.P11 
032240 


032254 


032256 


26-JUL- 
005037 
004037 
002110 
003106 
000000 


012737 


022021 


78 10:10 


002006 
042536 


177400 


002006 


146570 
177177 
000200 


I 
MACY11 30A(1052) 27=JUL-78 12:41 
T72 BUS ADDRESS INHIBIT 


CLR @FERFLGS 
JSR RO, @#CLAREA 


WRF ROM 
* ehear et 


11 
PAGE 140 


:CLEAR FLAG 
pena BUFFER 
:FROM 

:TO 

DATA 


esi DATA IS a IN FIRST LOCATION ONLY 


002110 


#177400 ,a#WRF ROM 


sEXPECTED DATA 


3*NOW READ DATA BUFFER IS CHECKED 


#WRF ROM ,RO 
#REINTO,R1 
#256. .Re 
047624 1$: 
ore (R1)+ 


2 
-(RO) ,@#SGDDAT 
-(R1) ,a#$BDDAT 


(RO) +, (R1)+ 

@SWR,-(SP) 

#177177, (SP) 

MSWO7, (SP) + 
173 


#257. , @AERWORD 


;GOOD DATA 

sDATA READ 

; COUNTER 

‘FOR ERROR WORD NO 

= COMPARE ge ee READ BUFFER 


NO 
ANY ERRORS ALREADY THERE 
IF YES BRANCH DO NOT TYPE HEADER 
ERROR ON READ DATA 
;BRANCH TO AVOID PRINTING NEXT ERROR 
z;WORD NO 1-10 ARE DATA 


WORDS 

= WORD NOS 11-256 HAVE NOT BEEN 
READ AND BUFFER SHOULD BE 
:ZERO IF OTHER THAN ZERO 

;WR NUMBER OF WORDS HAVE 

:BEEN READ IN THE DISK NOW 
CONTAINS 177400 ALL 256 

[WORDS BUT ONLY 10 WORDS 

SHOULD BE READ IN 


UNDO -(RO) AND -(R1) FOR ERROR 
GET SWITCH SETTING 

KEEP ONLY SWITCH 7 AND 8 

:1S 7 SET AND 8 RESET 

[BRANCH OUT IF YES 


; COUNT 
BRANCH IF NOT COMPLETE 


SEG 0139 


SEQ 0138 


AAAAAAAAADRAAARAAADAAPABRPPSSRSSASPSASRSSASASD 








J 11 
CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27=JUL-78 12:41 PAGE 141 SEQ 0140 


CZRJGC.P11 26-JUL-78 10:10 172 BUS ADDRESS INHIBIT SEQ 0139 
5904 
5905 032366 000004 TST73: SCOPE 
5906 032370 012706 001000 MOV ASTACK , SP RESET STACK 
5907 032374 012737 000073 002032 MOV MTTNO,Q#TSTNM = ;THIS SAVES TEST NUMBER 
5908 032402 005737 002040 TST @4RH70 TEST FLAG FOR RH70 CONTROLLER 
5909 032406 001402 BEQ 30$ IF FLAG = 1, THIS TEST IS SKIPPED 
tae 032410 000137 032732 JMP TST74 AGP TO NER TERE eeeerereseeeee ) 
5912 032414 004037 042536 JSR RO, @4CLAREA CLEAR SIMULATED DISK 
5913 032420 051422 -WORD DISK ; FROM 
5914 032422 052420 -WORD DISK+776 :TO 
gol2 032424 177400 -WORD 177400 zDATA 
5917 
peah 4 ;* THESE ARE TO SETUP FOR DISKLESS USE ONLY 
5920 032426 012737 010000 047504 MOV AMFMT22 ,AACYL CYLINDER 0, 16 BITS PER WORD FORMAT 6' 
5921 032434 105037 047507 CLRB @ASECOTR+1 ; TRACK 0 
5922 032440 112737 000001 047506 MOVB #1 ,Q#SECOTR :SECTOR 1 | 
5923 032446 005037 047510 CLR @AKEY1 sKEY1= | 
5924 032452 005037 047512 CLR @AKEY2 sKEY2=0 
5925 032456 012737 000001 047564 MOV #1. ,@A#DAWORD NO. OF DATA WORDS 6 
5926 032464 005037 047514 CLR aFX THIS IS A READ COMMAND 6 
5927 032470 004537 044026 JSR R5,a4CRC :GO TO CALCULATE CRC 6 
5928 032474 047504 CYL 6 
5929 032476 051404 WCRC 6 
5930 6 
re *THESE ARE REGULAR SETUPS : 
5933 032500 004737 042620 JSR PC ,@#CLDISK SETUP GENERAL REGISTERS 6 
5934 032504 013711 002066 MOV pg 1. READ DATA INTO RHCS1=70 6 
5935 032510 012777 177777 147114 MOV 3:10 DATA WORDS 6 
5936 032516 012777 160000 147110 MOV #160000" a SRHBA STARTING ADDRESS OF READ BUFFER 6 
5937 032524 052711 001400 BIS #A16!A17,aR1 z1S 760000 6 
5938 032530 112746 000001 MOVB #1,-(SP) IN LOWER BYTE GET SECTOR 1 
5939 032534 112766 000000 000001 MOVB #0.1(SP) GET TRACKO IN UPPER BYTE 
5940 032542 012677 147076 MOV (SP) +, @RHDST RACK/SECTOR IN RHDST 
5941 032546 012777 014000 147074 MOV #FMT22!ECI,@RHOF M6 BITS PER WORD 
5942 sECC CORRECTION INHIBIT BECAUSE 
5943 sECC IS NOT CHECKED HERE 
5944 032554 005077 147072 CLR @RHCA CYLINDER 0 
5945 032560 004737 042654 JSR PC ,@#CHECKT CHECK THAT DVA,RDY.DPR,DRY = 1 
5946 032564 104401 062450 TYPE ~CPHALT ZAND THAT NO OTHERS = 1. CANNOT CON- 
5947 032570 000000 HALT STOP THE TEST 
5948 032572 052777 000010 147036 BIS MBAI , ARHCS2 [SET BUS say ty INHIBIT 
5949 032600 005037 002006 CLR aF4ERFLGS ;CLEAR ERROR FLAG 
res 032604 004737 047344 JSR PC ,a@#COMHD [READ DATA 
5952 
5953 
rece! 032610 011137 001126 1$: MOV @R1 , aASBDDAT TEST DATA 
5956 032614 022737 145670 001126 CMP MSC! TRE enietmeg ye tte : 4 @4$BDDAT ; COMPARE RHCS1 
5957 032622 001406 BEQ 2 
5958 032624 012737 144270 001124 MOV #SC!TRE!DVA!RDY! 0. SYSGDDAT 3;GOOD DATA 
5959 032632 010137 042270 MOV R1,@4REGADR ;REGISTER RHCS1 
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104001 ERROR 1 REFERENCE NON EXISTANT 
Y DID NOT SET 


7ME 
REQUIRED BITS 
013746 : MOV @AUNIT , = (SP) ;GFT UNIT NUMBER 
#NEM!IR!BAI,(SP)- ; INCLUDE NEM BAI AND IR 
(SP)+,@#$GDDAT ; 
@R2 , ASBDDAT TEST DAT 
001126 @ASGDDAT ,a#SBDDAT ; COMPARE *RHCS2 


3$ 
R2,@4REGADR sREGISTER ADDRESS 
1 ;REFRENCING NONEXISTANT MEMORY 
;CAUSED AN ERROR SHOULD SET NEM 
017737 001126 : @RHBA ,A#SBDDAT ;TEST DATA 


022737 001126 #160000 ,a#$BDDAT on ey RHBA 


4$ ;BRAN GOOD 
001124 #160000. a#$GDDAT: GOOD DATA 
001634 042270 MO @ARHBA ,@AREGADR :REGISTER ADDRESS RHBA 
TAFTER A NON EXISTANT MEMORY ERROR 
;RHBA DOES NOT HAVE 160002 


032732 
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032732 000004 TST74: SCOPE 


:*DATA TABLE 

>*TOTAL OF 32 WORDS CONSISTING wl 

[*16 WORDS OF FLOATING ONES (EG. 10) 
:*16 WORDS OF FLOATING ZEROS (EG. "75976. 177775) 


00 MOV #STACK SP RESET STACK 
000074 002032 MOV MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
032746 004737 042620 JSR PC ,@#CLDISK INIT AND SET UP GENERAL REGISTERS 


3*SET UP *REINTO'' FOR WHAT IS TO BE READ 


032752 000001 #1,RO GETTING READY TO FLOAT 1 

003154 #REINTO,R1 STARTING ADDRESS WHERE 1 GOES 
RO, (R1)+ MOVE FLOATING 1 
RO GET 1 ONE BIT LEFT 
1$ BRANCH IF 16 NOT float 

177776 #177776,RO GETTING READY TO FLOAT 0 

003214 #REINTO+<16.*2>,R1_; STARTING ADDRESS OUNERE 177776 GOES 
RO, (R1)+ MOVE IN. FLOATING 0 


RO GET O ONE BIT LEFT 
2$ [BRANCH IF 16 NOT DONE 


RO, @#CLAREA FILL REST OF BUFFER WITH 1 
REINTO+<32.*2> ;FROM 

RE INTO+776 :T0 

1 sWITH DATA 


7*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 


000001 #1,RO GETTING READY TO FLOAT 1 
051422 #DISK,R1 STARTING ADDRESS WHERE 1 GOES 
RO,(R1)+ MOVE FLOATING 1 
RO GET 1 ONE BIT LEFT 
3$ ;BRANCH IF 16 NOT DONE 


177776 #177776,R0 GETTING READY TO FLOAT 0 
051462 #DISK+<16.*2>,R1° ; STARTING ADDRESS WHERE 177776 GOES 
RO,(R1)+ MOVE FLO VE FL aa 0 
006100 RO 3GET 0 ON ONE BIT LEFT 
103774 4$ BRANCH IF 16 NOT DONE 


004037 RO, @#CLAREA FILL REST OF BUFFER WITH 0 
051522 - WOR DISK+<32. -*2> FROM 


052420 ° DISK+77 :TO 
000000 0 WITH DATA 
3 *CHANGE FIFTH WORD TO 0 ON DISK 


033072 051432 CLR a4D ISK+10 CLEAR FIFTH WORD ON DISK 
033076 002006 CLR a4ERFLGS CLEAR ERROR FLAG 
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033102 004737 043656 JSR PC ,@#WRCHDA WRITE CHECK DATA 
;CYLINDER_Q, TRACK 1, SECTOR 1 
KEYS 0, 32 WORDS. 


3*1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
>*HAS BEEN COMPLETED, NOW WRITE CHECK ERROR BIT IS TESTED 
:*ALONG WITH RHWC FOR PROPER WORD COUNT AND RHBA FOR ADDRESS 


013746 @FUNIT ,=(SP) GET UNIT NUMBER 
052716 #IR'OR'WCE,(SP) :ONLY BIT 6 SHOULD BE SET 
004737 PC ,a#PUTREG zSAVE REGISTERS 
022637 (SP) +, aaCS2 ;COMPARE RHCS2 
001407 6$ BRANCH IF GOOD 
032737 #WCE ,@ACS2 WRITE CHECK ERROR HIGH? 
001002 BNE 5$ BRANCH IF ERROR NOT DUE TO ‘WCE"' 
104017 17 ;RHDB CONTAINS FAILING WORD 
033142 000401 BR 6$ ;RHBA CONTAINS ADDRESS+2 
[OF THE WORD IN MEMORY FROM 
; THE DISK THAT DID NOT COMPARE 
TRE AND SC WILL BE SET DUE TO WCE 
033144 104017 : 17 WCE WAS CORRECTLY NOT SET 
;BUT SOME BITS OTHER THAN 
IR AND UNIT NO. WERE SET 


033146 005737 002040 : @4#RH70 TEST FOR RH70 CONTROLLER 
033152 001414 16$ ;SKIP RH70 CODE AND DO RH11 IF NOT 


SPIVABVBABBBMBWBWA@A! A> | SS BS BO O- O- 


033154 022737 177750 #-24. , awl COMPARE RHWC AFTER A FORCED 


WRITE CHECK ERROR 
033162 001402 17$ CHECK RHBA IF GOOD 
033164 104017 17 [WORD COUNT REGISTER IN ERROR AFTER A 
[FORCED WRITE CHECK ERROR ON FIFTH WORD 
033166 000421 15$ BRANCH TO CONTINUE TEST 


033170 022737 001710 : #RE INTO+<8.*2>,@4BA ;COMPARE RHBA AFTER A FORCED 
;WRITE CHECK ERROR IN FIFTH WORD 
033176 001415 15$ CONTINUE IF GOOD 
033200 104017 17 BUS ADDRESS gh IN ERROR AFTER 
FORCED WRITE CHECK ERROR ON FIFTH WORD 
033202 000413 15$ SKIP RH11 CODE AND CONTINUE WITH TEST 


033204 022737 177745 : ee COMPARE RHWC AFTER A FORCED 
WRITE CHECK ERROR 
033212 001402 BEQ CHECK RHBA IF GOOD 
033214 104017 17 ;WORD COUNT REGISTER IN ERROR AFTER A 
FORCED WRITE CHECK ERROR ON FIFTH WORD 
033216 000405 15$ BRANCH TO CONTINUE TEST 


033220 022737 001710 : #RE INTO+<5. *2>, @4BA;: COMPARE RHBA AFTER FORCED 
sWRITE CHECK ERROR IN FIFTH WORD 
033226 001401 BEQ 15$ CONTINUE IF GOOD 
033230 104017 ERROR 17 [BUS ADDRESS REGISTER IN ERROR AFTER 
sFORCED WRITE CHECK ERROR ON FIFTH WORD 


;*NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
i*FILL ‘WRFEROM’’ WITH WHAT SHOULD BE IN REINTO THEN CHECK 
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eo B 


033232 002006 15$: a#ERFLGS CLEAR ERROR FLAG 
127 000001 #1,RO GETTING READY TO FLOAT 1 
002110 #WRFROM,R1 ; START ADDRESS WHERE 1 GOES 
7$: egg TING 1 


L 
7$ “BRANCH IF 16 NOT DONE 


177776 #177776,R0 GETTING READY TO FLOAT 0 

002150 #WRFROM+<16.%2>,R1 ;STARTING ADDRESS WHERE 177776 GOES 
RO, (R1)+ MOVE IN, IN sera 0 
RO :GET 6 ON ONE BIT LEFT 

10$ BRANCH IF CARRY SET 


033274 RO, @#CLAREA FILL REST OF BUFFER WITH 1 
033300 WRFROM+<32.*%2> ;FROM 

033302 ° WRF ROM+776 ; 
033304 00000 . 1 


TO 
sWITH DATA 
:*NOW THE READ BUFFER WILL BE CHECKED 
JSR RO, @4COMPAR 

FROM 


NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 


033324 RETURN FOR GOOD COMPARISON 


033326 : ;READ NEXT ERROR 5 
033330 RT ;RETURN TO COMPARISON SUBROUTINE 
033332 : :DATA IN REINTO BUFFER GOT 
: CHANGED AFTER A WRITE 
+ CHECK DATA COMMAND 
‘WORD NO CONTAINS THE WORD 
NUMBER THAT GOT CHANGED 
;RETURN TO COMPARISON SUBROUTINE 


ONLY A BRANCH POINT 


SAMBAAAMRASSSSSSASSSSSSSSSSSSSSSSSSSVSVSSeegegesesesese@VsVsVs@segasegeeo 
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033340 000004 TST75: SCOPE 


012706 001000 STACK ,SP RESET STACK 


012737 000075 002032 ATINO,@#TSTNM =; THIS SAVES TEST NUMBER 
125252 #125252,-(SP)  :DATA TO BE READ 
000400 #256. ,R5 = COUNTER 
051422 #D1SK.RO ‘START OF SIMULATED DISK DATA 
(SP). (RO)* :MOVE IN DATA ON TO SIMULATED DISK 


COUN 
;BRANCH IF Yaa NOT COMPLETE 
UNDO -(SP) 


72 ECC WORDS 
;CLEAR ECC, DATA GAP, AND 
; TOLERANCE GAP 
2$ [BRANCH IF NOT COMPLETE 
#0!0,aMCYL ;16 BITS PER WORD 
#1 @ASECOTRET : TRACK 1 


NO. OF DATA WORDS 
ax ;THIS IS A READ COMMAND 
R5,aA#CRC 7GO TO CALCULATE CRC 


PC ,a#CLDISK SETUP GENERAL REGISTERS 
146126 #-4.-4.,aRHWC 34. DATA 4 HEADER WORDS 
146122 PREINTO, @RHBA ;STARTING ADDRESS OF READ BUFFER 
. j SIN LOWER BYTE GET SECTOR 
000001 44 TRACK _IN HIGHER BYTE 
HDST RACK/SECTOR IN RHDST 
146112 #FMT22!EC1,@RHOF | 216 BITS PER WORD 


@RHCA ri ER 0 
PC ,@#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 
~CPHALT SAND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 
@AREF OR ,@R1 [READ HEADER AND DATA=72 
a@#ERFLGS 
PC ,@#COMHD : 
001126 @RHWC , SBDDAT ;LOAD AND TEST RHWC 


20$ D=0 
40 “RHWC DOES NOT = 0 AFTER A READ 
a#ERFLGS TANY ERRORS ALREADY THERE 
TST76 SBRANCH IF YES 
PC, a#CHECKE SCHECK THAT BITS = 1 
.CPHALT *CANNOT CONTINUE TESTING IF THEY DON'T 
*STOP THE TEST 
#WRF ROM, RO “GETTING READY TO FILL EXPECTED DATA 
0 [CYLINDER 0 
‘IN LOWER BYTE GET SECTOR 
S [GET TRACK IN HIGHER BYTE 
(SP) +, (RO)+ “GET TRACK/SECTOR IN BUFFER 
#0, (RO) + ‘KEY1 IN BUFFER 
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012720 000000 :KEY2 IN BUFFER 
000400 #25 
125252 


DATA WORD COUNTER 
;DATA 
ate (RO) + ;DATA_INTO BUFFER 


; COUNT 
3$ ;BRANCH IF 256 NOT DONE 
043514 RO, @4COMPAR CHECK 
;GOOD BUFFER 
; TEST BUFFER 
[NUMBER OF WORDS CHECKED 
z;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
P RETURN FOR GOOD COMPARISON 
~ 
033722 PC "RETURN TO ‘'COMPAR'' 


:*NOW SEE THAT FORMAT ERROR BIT GOT SET 
033724 004737 042224 $ JSR PC ,a@4PUTREG SAVE REGISTERS 


033730 ih of 100020 001716 CMP MFER'DCK,@4ER1 ;FORMAT ERROR SHOULD BE SET 
033736 BEQ TST76 BRANCH IF GOOD 
033740 ERROR 20 zA 16 BIT PER a READ WAS ATTEMPTED 
WHEN THE DISK 
THE FORMAT BiT=0- 18 BITS PER 
[WORD THE READ WA 
COMPLETED BUT ERROR REG 
[WAS NOT RIGHT 
ZNOTE DCK WILL BE SET BECAUSE 
ECC HAS NOT BEEN GENERATED 


SEQ 


0146 
SEQ 0145 





am 
NN 
Ss Be a | 


i i i a a i aa ele ee eee ee ee ee eB OO OF FFE SE FRR. FR FR FR FFAS LK 


CZRJGCO,RP04/5/6 DSKLS CTRLRI 
26-JUL-78 10:10 


CZRJGC.P11 


033742 


033744 


033750 
033756 


033774 
033776 


000004 


012706 


012737 
012737 


012702 


001000 
000076 
177777 


MACY11 


002032 
047620 


047552 
047514 


145540 
145534 


145536 
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TST76: SCOPE 
>*NOW A WRITE DATA WILL BE ATTEMPTED WITH 
;*WRONG FORMAT BIT 


MOV ASTACK , SP RESET STACK 
MOV ATTNO,@ATSTNM =; THIS SAVES TEST NUMBER 


MOV #-1 , AANOSYNC :SET FLAG SO THAT DATA SYNC 
SAND DATA IS NOT READ 
FRMAT1: RO, @#CLAREA sCLEAR SIMULATED DISK 
-WORD DISK ;FROM 
«WORD TOLGAP+16 :TO 


-WORD 0 DATA 

;*THESE ARE SETUP FOR DISKLESS USE ONLY 

CL aFCYL CYLINDER 0, FORMAT 18 BIT WORDS 
SHSECOTR#1 CK 0 


3 0 
:NO OF DATA WORDS 
-@AX WRITE DATA 
R5,a4CRC [GO TO CALCULATE CRC 


z* THESE AER REGULAR SETUPS 
JSR RO, @#CLAREA FILL WRITE FROM BUFFER WITH 125252 
FROM FROM 


:TO 


DATA 
PC ,a@ACLDISK SETUP GENERAL REGISTERS 
#-4 , ARHWC 3256 DATA WORDS 
MWRF ROM , (RHBA STARTING orronal OF WRITE BUFFER 
@RHDST ; TRACK=0 SECTOR=0 
#FMT 22, @RHOF 316 BITS PER WORD FORMAT 
@RHCA >CYLINDER 0 
PC ,@#CHECKT :CHECK THAT DVA.RDY, DPR DRY = 1 
~CPHALT AND THAT NO OTHERS = 1. CANNOT CON- 
STOP THE TEST 
@AWRIDAT ,aR1 ‘WRITE DATA=60 
aVERFLGS ;CLEAR on FLAG 
JSR PC ,a@#COMHD [WRITE DAT 

;*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 

>*FROM THE "'COMHD’' ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 

: *HEADER.. HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 

AND SYNCS WERE CORRECTLY DETECTED 


DATA IS TO BE CHECKED 
JSR PC SAVE REGISTERS 
HAS ANY ERRORS OCCURED? 
BRANCH IF YES 


;GOOD DATA 
:DATA WRITTEN INTO ‘DISK’ 
OUNTER 


ao 
MN 
eo] 


CR OD ORD RAED OBR ORBEA RED ER ORD OB OBR OKRA HRA HRA AAA E OOK OA OW OH 
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012737 000005 047624 1$: #5 , AAERWORD FOR ERROR WORD 
020021 RO,(R1:+ ; COMPARE GOOD DATA WITH DATA ON DISK 
3$ BRANCH IF GOOD 
RO, @#SGDDAT :GOOD DATA 
-(R1),a#$BDDAT ;BAD DATA 
ERROR WORD NO 
ANY ERRORS ALREADY THERE? 
‘BRANCH IF YES 
ERROR ON WRITE DATA COMMAND 
:0N A WRITE DATA WITH 
WRONG FORMAT NO DATA 
SHOULD BE WRITTEN 
:WORD NO GIVES WORD IN ERROR 
; ‘BRANCH TO AVOID PRINTING NEXT ERROR 


: (R1)+ ;UNDO -(R1) FOR BAD DATA 
144676 @SWR ,- (SP) :GET SWITCH SETTING 
177177 #177177, (SP) 
000200 + gel (SP) + 


4 
R2 
1$ 


“BRANCH IF 256 NOT DONE 
*NOW CHECK TO SEE THAT FORMAT ERROR BIT GOT SET 


022737 000020 001716 4$: CMP #FER,@#ER1 FORMAT ERROR SHOULD BE SET 
001401 BEQ TST77 BRANCH IF GOOD 
104020 ERROR 20 zA 16 BIT PER WORD WRITE DATA 
WAS ATTEMPTED WHEN THE DISK 
HAD THE FORMAT BIT =0=18 
“BITS PER WORD THE WRITE 
WAS CORRECTLY ABORTED 
[BUT ERROR REG. 1 WAS WRONG 


‘ 
OF FOF FF FFM FAA AAA AAAAAAAAMA AA MAA AMAAAAAAAAAOAAAHAOOAO 
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TST77: 


STACK , SP RESET STACK 
002032 P ‘CLEAR Witt TEST NUMBER 
LEAR 
CHECK THAT DVA,RDY,DPR,DRY = 1 
[AND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 
#RHCA,RO 


(RO) +,R5 7R5 HAS ADDRESS OF REG. UNDER TEST 
000040 : #CLR,@RHCS2 
013777 QAUNIT,@RHCS2 = =;REINSTATE UNIT NO. 


:*SET UP FOR AN OPERATION (WRITE HEADER AND DATA) 


013777 @AWRIFOR ,@RHCS1 ye ee AND DATA=62 
zINR 

012777 #-10. ,aRHWC 310 WORDS 
[BUS ADDRESS = WRFROM 
DESIRED TRACK=0, SECTOR=10 
BUS ADDRESS INCREMENT INHIBIT 

145236 #FMT22, @RHOF FORMAT 16 BIT WORDS 
145234 @RHCA CYLINDER =0 


:*SAVE REGISTERS 


043312 JSR RO, @#SAVER ; SAVE 


RHCS1 7FROM 
REINTO 370 
14, ;NUMBER OF REGISTERS SAVED 


z*NOW THE COMMAND IS GIVES TO 

;*WRITE HEADER AND DATA FOR CYL=0, SECTOR=10 
:*TRACK=0 IT COMES BACK AFTER ONE SECTOR 
:*HAS PASSED 


012777 000001 145222 ADMD , ARHMR SET DIAGNOSTIC MODE 
005277 145176 @RHCS1 GO TO RHCS1 WITH 62 
012715 177672 #177672,aR5 ing pe ALL BITS EXCEPT 


IE 
052737 003174 #DMD, @#REINTO+20° ose ROM IN SAVED REGISTER RHMR 
000004 #RMR.aAREINTO+2 ;SET RMR IN SAVED REG. RHER1 
2 7CLEAR DRY IN RHDS1 
:SET ERR IN RHDS1 
SET GO IN SAVED REG. RHCS1 
000200 003154 #RDY,@AREINTO CLEAR RDY BIT 


;*AFTER AN ATTEMPT TO WRITE INTO A REGISTER 
z*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


043312 JSR RO, @#SAVER 7 SAVE 
RHCS1 


7FROM 
WRF ROM . 
14. 


PRR ORR ER AA AAA AAR AAR AAA AAA AAA AAAAADAAXAAXAAXAAAXAAXAAAAAAAAAAHAAAHH 
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:*AS_ UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

:*OPERATION THC UPPER BYTE OF RHAS WILL BE SAVED AS IS 

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
034524 113737 003173 002127 MOVB QARE INTO+17 ,@AWRFROM+17;SAVE UPPER RHAS 


:*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WiTH AFTER 


043514 JSR RO, @#COMPAR ; COMPAR 
:GO BUFFER 
: TEST BUFFER 


NUMBER 
SA TURN FOR ERROR 


RETURN FOR GOOD COMPARISON 
047624 2 9 ey R5 [GETTING READY vane INDEX 


R ;DOUBLE ERROR WOR 
001636 042270 MO RHCS1~2(R5) , @AREGADR_ ; FAILING REG. ADDRESS 
1 ;CONTENTS OF a ceneai ER 
PC [CHANGED WITH 
[AN ATTEMPT TO WRITE 
;DURING AN OPERATION 
>*THE FOLLOWING CLEAR MAY SET THE ATA BIT BECAUSE GO IS HIGH 
-* 


004737 042620 : JSR PC, a@#CLDISK ZCLEAR DISK 


6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 





CZRJGCO,RP04/5/6 DSKLS CTRLR1 


CZRJGC.P11 


26-JUL-78 10:10 


MACY11 30A(1052) 
177 


002032 
145034 


TST100: SCOPE 
MOV 


STACK , SP 
#TTNO,@4TSTNM 
PC ,@#CLDISK 
#DMD , ARHMR 


H 12 
27-JUL=78 12:41 PAGE 152 
RHER1 = BIT #2 = REG. MODIFICATION REFUSED 


RESET STACK 


; THIS SAVES TEST NUMBER 


INIT DRIVE 
[SET DIAGNOSTIC MO 


SEQ 0151 
SEQ 0150 


MODE 
:SUBROUTINE TO GIVE A SEEK 
; CHANGE RHCC TO 1 


RO, @A4MAKECYL 


#STACK, SP 
002032 #TTNO,@4TSTNM 
@ANOS YNC 


PC ,@#SETDSK 
RO, @4#CLAREA 


RESET STACK 

THIS SAVES TEST NUMBER 

2 SET FLAG SO THAT DATA SYNC 
SET UP SIMULATED DISK 
“FILL REINTO BUFFER 

:FROM LOCATION 

:T0 LOCATION 


MWRF ROM ,RO 

#FMT22,(RO)+ 710000 INTO WRFROM 
#401, (RO)+ 3401=TRACK1 ,SECTOR1 
#1,(RO)+ 31 INTO WRFROM+ 
#1,(RO)+ 317 INTO WRFROM+6 
RO, @#CLAREA sFILL WRFROM 


JS 
WRF ROM+10 ; FROM 


WRF ROM+<256. *2> :TO 
177400 DATA 


JSR RO, @AHCCRCE 
72 ty — AND DATA 


;READ 
;HEADER COMPARE 
:RETURN POINT FROM HCCRCE 
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TST102: SCOPE 
MOV STACK, SP RESET STACK 
000102 002032 MTTNO,Q4TSTNM = ;THIS SAVES TEST NUMBER 
042620 PC ,a#CLDISK INIT DRIVE 
000001 144656 #DMD , ARHMR SET DIAGNOSTIC MODE 
045172 RO, Q4#MAKECYL ; SUBROUT INE TO GIVE A SEEK 
0 ;CHANGE RHCC TO 0 


035010 TST103: 


035012 ASTACK, SP RESET STACK 
002032 ATTNO,Q@A4TSTNM = ;THIS SAVES TEST NUMBER 
@4NOSYNC ;SET FLAG SO THAT DATA SYNC 
PC ,@4SETDSK ;SET UP SIMULATED DISK 
RO,@#CLAREA sFILL REINTO BUFFER 
REINTO FROM LOCATION 
gomedia emecliats 1 O ceaieat 


AWRFROM,RO 

MFMT22,(RO)+ 210000 INTO WRFROM 
#401, (RO)+ :401=TRACK1,SECTOR1 
#1,(RO)+ :1 INTO WRFROM+ 
#1, (RO)+ :1 INTO WRFROM+6 
RO, @4CLAREA ai WRF ROM 


10 
WRF ROM+<256. *2> 


:T0 
177400 DATA 


044430 JSR RO, a@#HCCRCE 
72 ;READ HEADER AND DATA 
= CYLINDER 


sREAD 
00000 1 sHEADER COMPARE 
035130 : RETURN POINT FROM HCCRCE 


UNI NN SNS NON 








CZRJGCO,RPO4/5/6 DSKLS CTRLR1 


J 
MACY11 aa BE tiny «i 12:41 
CZRJGC.P11 26-JUL-78 10:10 T103 


035132 000004 TST104: 
03 001000 MO ASTACK , SP 


002032 ATTNO,@4TSTNM 


000104 
042620 PC ,@#CLDISK 
144500 ADMD , ARHMR 


045172 RO, @4MAKECYL 


TST105: 
ASTACK,SP 
002032 
047620 
RO. @4CLAREA 
WRF ROM 
WRF ROM+<256. *2> 
125252 
042536 JSR RO, @4CLAREA 
REINTO 
RE INTO+<256. *2> 
177409 
044430 i RO, @AHCCRCE 


000001 
000240 


12 . 
PAGE 154 SEQ 0153 
OR REG] - BIT #7 = HEADER COMPARE ERROR 


SEQ 0152 


RESET STACK 

THIS SAVES TEST NUMBER 
INIT DRIVE 

SET DIAGNOSTIC MODE 

; SUBROUTINE TO GIVE A SEEK 
CHANGE RHCC [0 1 


sRESET STACK 

THIS SAVES TEST NUMBER 
;SET FLAG SO THAT DATA SYNC 
SETUP SIMULATED DISK 

7FILL WRFROM BUFFER 

:FROM LOCATION 

AA ae 


[FILL REINTO BUFFER 
= FROM LOCATION 


WRITE DATA 
CYLINDER 


: TE 
sHEADER COMPARE 
:RETUSN POINT FROM HCCRCE 


an 
NSN 
2D 


7 
7 
7( 
7( 
7( 
7 
4 
7 
7 
7\ 
7 
7 
7( 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
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6522 7 
6523 7¢ 
6524 7¢ 
6525 035266 000004 TST106: SCOPE 7( 
6526 035270 012706 001000 MOV #STACK,SP sRESET STACK 7( 
6527 035274 012737 000106 002032 MOV ATTNO,@#TSTNM =; THIS SAVES TEST NUMBER v4 
6528 035302 004737 042620 JSR PC ,@4CLDISK s INIT DRIVE 7¢ 
6529 035306 012777 000001 144344 MOV ADMD , ARHMR SET DIAGNOSTIC MODE 7( 
6530 035314 004037 045172 JSR RO, @AMAKECYL ; SUBROUTINE TO GIVE A SEEK 7( 
6531 035320 000000 0 CHANGE RHCC TO 0 ZC 
6532 7( 
6533 7( 
$35 035322 000004 TST107: SCOPE a 
6536 035324 012706 001000 MOV #STACK,SP RESET STACK a 
6537 035330 012737 000107 002032 MOV #TTNO,@ATSTNM ;THIS SAVES TEST NUMBER 7 
6538 035336 012737 177777 047620 MOV #-1 , ANOS YNC sSET FLAG SO THAT DATA SYNC 7 
6539 035344 004737 044302 JSR PC, a#SETDSK SETUP SIMULATED DISK 7 
6540 035350 004037 042536 JSR RO, @#CLAREA FILL WRFROM BUFFER ‘4 
6541 035354 002110 WRF ROM FROM LOCATION 7 
6542 035356 003110 WRF ROM+<256. *2> TO LOCATION 4 
6543 035360 125252 125252 :DATA ‘4 
6544 035362 004037 042536 JSR RO, @#CLAREA sFILL REINTO BUFFER 7 
6545 035366 003154 REINTO FROM LOCATION 7 
6546 035370 004154 RE INTO+<256. *2> :T0 ‘4 
6547 035372 177400 177400 7 
6548 035374 004037 044430 JSR RO, A#HCCRCE 4 
6549 035400 000060 60 WRITE DATA 7 
6550 035402 000000 0 CYLINDER 7 
6551 035404 000001 1 sSECTOR 7 
6552 035406 000000 0 : TRACK 7 
6553 035410 177400 -256. ;WORD COUNT 4 
6554 035412 002110 WRF ROM :RHBA BUFFER 7 
6555 035414 000001 1 WRITE 7 
6556 035416 000001 1 sHEADER COMPARE 7 
6557 035420 000240 1$: NOP RETURN POINT FROM HCCRCE 4 
5 
5 
5 
5 
7 
7 
5 
7 
7 
5 
5 
7 
5 
5 
7 
7 
7 
7 
7 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
CZRIGC.P11 26-JUL-78 10:10 


035422 
035424 
0354 


044430 


035546 


L 1 
MACY11 30A(1052) aes 12:4 
7107 ERROR REG.1 = BIT #7 


TST110: SCOPE 

ASTACK, SP 
#TTNO,O@4TSTNM 
@ANOS YNC 
PC, Tho gts 
RO, @4CLAREA 

REINTO 

- Pianeta 
AWRFROM,RO 
#FMT22, (RO) + 
#401, (RO) + 
- enone: 

WRF ROM+<256. *2> 


177400 
gn RO, @#HCCRCE 


GE 156 
- HEADER COMPARE ERROR 


RESET STACK 
THIS SAVES TEST NUMBER 
SET FLAG SO THAT DATA SYNC 


SET UP SIMULATED DISK 
CHANCE CRC TO GIVE HCRC 
:FILL REINTO BUFFER 
FROM LOCATION 


:T0 LOCATION 
TA 


:10000 INTO WRFROM 
3401=TRACK1 ,SECTOR1 


;1 INTO WRFROM+ 


31 INTO WRFROM+6 


sFILL WRFROM 
; FROM 


:TO 
DATA 


ty ——" AND DATA 


CRC ERROR 
“RETURN POINT FROM HCCRCE 


SEQ 0155 
SEQ 0154 








al 
4 
7 
a 
7: 
7: 
7 
7 
ra 
7 
7 
7: 
7 
7 
7 
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035550 TST111: SCOPE 


035552 0127 001000 #STACK ,SP RESET STACK 

MTTNO,@4TSTNM =; THIS SAVES TEST NUMBER 
#~1 , @ANOSYNC 7SE1 FLAG SO THAT DATA SYNC 
PC ,@#SETDSK SETUP SIMULATED DISK 
a4wCRC [CHANGE CRC TO GIVE HCRC 
RO, @#CLAREA sFILL WRFROM BUFFER 

WRF ROM :FROM LOCATION 

WRF ROM+<256. *2> :TO LOCATION 

125252 DATA 

JSR RO, @#CLAREA sFILL REINTO BUFFER 


RE INTO FROM LOCATION 
RE INTO+<256. *2> ;T0 
177400 


JSR RO, @#HCCRCE 
60 sWRITE DATA 


ERROR 
“RETURN POINT FROM HCCRCE 
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3*SET UP FOR THE TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING 


@ARP06 =; MOVE RPO6 FLAG TO ITSELF TO TEST 

2s :1F = 0 TREAT DRIVE AS RPO4 

3$ > TREAT AS RPO6 = DO NEXT ‘MAKECL’’ & TEST 
$s: a4D0G [DO SECOND FOLLOWING ‘MAKECL'’ AND TEST 


TST112: 
MO ASTACK,SP sRESET STACK 
002032 ATTNO,@4TSTNM Z THIS SAVES TEST NUMBER 
PC ,a#CLDISK ; INIT DRIVE 
143742 ADMD , ARHMR SET DIAGNOSTIC MODE 
RO, @AMAKECYL ; SUBROUTINE TO GIVE A SEEK 
035722 SCHANGE RHCC TO 814. 


035724 TST113: 


035726 #STACK, SP RESET STACK 
#TTNO,Q@A4TSTNM =; THIS SAVES TEST NUMBER 
RO, @#CLAREA Ht a SIMULATED DISK 


DISK 
TOLGAP+16 :TO 


:DATA 
011456 #814. 'FMT22,a#CYL;CYLINDER 814. 
000022 #18. ,@#SECOTR+1; TRACK K 18. 
000025 #21. ,@MSECOTR ECTOR 21. 
047510 anKevT REY] 0 
047512 @4KEY2 SKEY2 0 
000400 #256. ,@ANOWORD ;NO OF DATA WORDS 
000001 #1, a@AXx WRITE DATA 
044026 RS, aACRC :GO TO CALCULATE CRC 


RO, @#CLAREA FILL WRITE BUFFER WITH 377 
WRF ROM :FROM LOCATION 
aati *2> sce LSAT sen 


:DA 
os @4CLDISK : SETUP Haye REGISTERS 
143556 5 RHWC 3256. DATA WORDS 


143552 ROM aR STARTING ADDRESS OF WRITE BUFFER 


>SECTOR 21. 
000001 ;TRACK 18. 
TSECTOR 21. TRACK 18. 
143542 316 BITS PER WORD FORMAT 
143536 ZCYLINDER 814. 
PC ,@#CHECKT [CHECK THAT DVA.RDY,DPR,DRY = 1 
~CPHALT [AND THAT NO OTHERS = 1. CANNOT CON- 
STOP THE TEST 
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013711 @AWRIDAT ,@R1 WRITE DATA=60 
002006 ;CLEAR ERROR FLAG 
[WRITE DATA 
;SAVE REGISTERS 
SHAVE ANY ERRORS OCCURED? 
BRANCH A YES 


[GOOD DAT 
DATA WRITTEN INTO ‘DISK*’ 
OUNTER 


256. .R2 se 
047624 1$: [FOR ERROR WORD 
toca) = COMPARE om WITH DATA ON DISK 


se P ye T 


D NO 
ANY ERRORS ALREADY THERE? 
BRANCH IF YES 

ERROR ON WRITE DATA COMMAND 
;BRANCH TO AVOID to a ERROR 


as S “GET SWITCH SETTING 
#177177, (SP) [KEEP ONLY SWITCH 7 AND 8 
#SwO7, (SP)+ ; 

4$ 

R2 ; 256 WOR 

1$ ;BRANCH IF 256. NOT DONE 


@4DS1,-(SP) GET RHDS1 
#PROG, (SP) ; CLEAR PROG 
#LST'!DPR!DRY!VV,(SP)+;1S "LST" HIGH ? 
5$ BRANCH IF G 


OOD 
042270 @#RHDS1,@#REGADR’ ; FAILING REG. ADDRESS 
001124 #LST : DPR:DRY |W, @FSGDDAT :GOOD DATA 
001126 @4DS1,a4$BDDAT ;BAD DAT. 
1 "Lsr- DID NOT SET AFTER 

‘LAST SECTOR ON LAST TRACK 

ON LAST CYLINDER WAS 

WRITTEN 


:VV_BIT #6 MAY OR MAY NOT BE HIGH 
013737 036330 $ @ARHCS1 , a#6$ 3SET UP ‘WAT’’ SUBROUTINE 


104415 
000000 : ;RHCS1 ADDRESS 
000200 ;WAIT FOR READY 


000137 DON'T DO THE RPO4 ‘LST* TEST FOLLOWING 
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DOG: 
TST114: SCOPE 
MOV ASTACK,SP sRESET STACK 
002032 ATTNO,@A4TSTNM = =;THIS SAVES TEST NUMBER 
PC, a#CLDISk ; INIT DRIVE 
143272 ADMD , @RHMR sSET DIAGNOSTIC MODE 
RO, @AMAKE CYL ; SUBROUTINE TO GIVE A SEEK 
; CHANGE RHCC TO 410. 


TST115: 


STACK , SP sRESET STACK 
MTTNO,Q@4TSTNM = =;THIS SAVES TEST NUMBER 
RO, @#CLAREA A SIMULATED DISK 


DISK : 
TOLGAP+16 :TO 


° :DATA 
047504 #410. !FMT22,QACYL;CYLINDER 410. 
047507 #18. ,@ASECOTR+1;TRACK 18. 
047506 #21.,@A4SECOTR ;SECTOR 21. 
@A4KEY1 ;KEY1 0 


@AKEY2 sKEY2 0 
047552 #256. ,@A#NOWORD ;NO OF ae WORDS 
047514 #1, aAX WRITE DAT. 

R5,a4CRC :GO TO CALCULATE CRC 


RO, @4CLAREA sFILL WRITE BUFFER WITH 377 
WRF ROM zFROM LOCATION 
1 alata an D gies 


PC ,@MCLDISK :SETUP a uk REGISTERS 
143106 256. ,aRHWC 7256. WORDS 
143102 FR STARTING. ADDRESS OF WRITE BUFFER 
. TSECTOR 21. 
000001 ; TRACK 18. 
SECTOR 21. TRACK 18. 
143072 716 BITS PER WORD FORMAT 
143066 CYLINDER 410. 
PC ,@#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 
CPHALT ZAND THAT NO OTHERS = 1. CANNOT CON- 
STOP THE TEST 
@AWRIDAT ,@R1 [WRITE DATA=60 
: CLEAR a FLAG 


;WRITE DATA 

SAVE REGISTERS 

SHAVE ANY ERRORS OCCURED? 

BRANCH IF YES 

:GOOD DATA 

ZDATA WRITTEN INTO ‘DISK"" 
012702 000400 #256. ,R2 COUNTER 
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012737 000401 047624 1$: #256. +1 Sacra FOR ERROR WORD 
C a (R1, ; COMPARE a ey WITH DATA ON DISK 


RO, @#SGDDAT 
-(R1) ,@#$BDDAT 
R2,@#ERWORD OR WORD NO 
a4ERFLGS ANY ERRORS ALREADY THERE? 
2s [BRANCH IF YES 
4 ERROR ON WRITE DATA COMMAND 
64$ TBRANCH TO AVOID PRINTING NEXT ERROR 
5 WORD NO GIVES WORD IN ERROR 
: (R1)+ UNDO -(R1) FOR BAD DATA 
142230 @SWR , - (SP) :GET SWITCH SETTING 
177177 #177177, (SP) 
000200 #SWO7, (SP) + 
4$ 
R2 
1$ ;BRANCH IF 256. NOT DONE 
001736 : a4DS1,-(SP) :GET y+ 
001000 #PROG, (SP) ;CLEAR PROG BIT 
AMLST!DPRIDRY! VV, (SP) + 31S *LST* HIGH ? 
5$ T FOR ‘ROY IF GOOD 
042270 @ARHDS1 ,@#REGADR ; FAILING REG. ADDRESS 
001124 #LST'DPR'DRY!VV,a#SGDDAT ;GOOD DATA 
001126 MOV a4DS1,a#$BDDAT ";BAD DATA’ 
1 ;"LST' DID NOT SET AFTER 
;LAST SECTOR ON LAST TRACK ON LAST 
CYLINDER WAS WRITTEN - ‘VV" BIT #6 
MAY OR MAY NOT BE HIGH 


013737 001640 037000 : @ARHCS1 ,a#6$ SET UP ‘WAT’ SUBROUTINE 


104415 
000000 : 0 ;RHCS1 ADDRESS 
000200 WAIT FOR ‘RDY® BIT 





CZRJGCO,RPO4/5/6 DSKLS CTRLRI 
26-JUL-78 10:10 


CZRJGC.P11 


037042 


037044 
037052 


037054 


037130 


037132 


037202 


037210 


037226 


001404 


012737 
000403 


012737 


112737 


012777 


005737 
001404 
Ads 


000403 
012777 


002036 
011456 
010632 


000022 
000025 


042620 


010000 


002036 
001456 
000632 


MACY11 30A(1052) 
7115 


002032 


047504 


047504 


047507 
047506 


047552 
047514 


142454 
142450 


000001 
142440 


142426 
142416 


CAT: 
TST116: SCOPE 
MOV 


12$: 


A 13 
ry P SEQ 0161 


27-JUL-78 AGE 162 
LAST SECTOR TRANSFERRED, ‘LST* SEQ 0160 


1 
RHDS1 (BIT #10 


#STACK , SP RESET STACK 

ATTNO,@ATSTNM = ;THIS SAVES TEST NUMBER 

PC ,a#CLDISK INIT AND SET UP GENERAL REG. CORRES. 
RO, @4CLAREA CLEAR SIMULATED DISK 

DISK FROM 

TOLGAP+16 :TO 

0 DATA 


;* THESE ARE TO SETUP FOR DISKLESS USE ONLY 
7*AND WILL HANDLE RPO4 OR RPO6 DRIVES 


TST @ARPO6 = ;MOVE RPO6 FLAG TO ITSELF TO TEST 
BEQ 10$ ; TREAT DRIVE AS RPO4 IF = 0 


MOV “+ ape 'FMT22,@4CYL;CYLINDER 814., 16 BITS PER WORD 
; TREAT DRIVE AS RPO6 


#410. !FMT22,Q4CYL;CYLINDER 410., 16 BITS PER WORD 
; TREAT DRIVE AS RPO4 


#18. ,@ASECOTR+1 ; TRACK 18. 
#21.,@MSECOTR ;SECTOR 21. 

@AKEY1 sKEY1 0 

@AKEY2 ZKEY2 0 

#256. ,@ANOWORD ;NO OF we WORDS 
#1, 04x sWRITE DAT 

R5,a4CRC 3GO TO CALCULATE CRC 


:*THESE ARE REGULAR SETUPS 

JSR RO, @#CLAREA :FILL WRITE BUFFER WITH 377 

WRF ROM FROM 

WRF ROM+<256. *2> :T0 

377 :DATA 

PC ,a#CLDISK *SETUP GENERAL REGISTERS 
3 7326. DATA WORDS 

*STARTING ADDRESS OF WRITE BUFFER 
: SECTOR 21. 


° 18. 
(SP) +, @RHDST ZSECTOR 21. TRACK 18. 
#FMT22 , @RHOF 316 BITS PER WORD FORMAT 


3*CHECK TO SEE WHAT TYPE OF DRIVE IS BEING TESTED 
;*AND LOAD CYLINDER ADDRESS REGISTER WITH THE PROPER NUMBER 


@ARPO6 = ;MOVE FLAG TO ITSELF TO TEST 
1 ; TREAT AS RPO4 IF = 0 
+ | al aaa 

#410. ,@RHCA “CYLINDER 410. 
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13$: 


004737 042654 PC ,@#CHECKT ;CHECK THAT DVA,RDY, “$\ DRY = 
104401 062450 ,CPHALT ZAND THAT NO OTHERS = 1. CANNOT CON= 
000000 ;STOP THE TEST 
013711 002062 @AWRIDAT ,AR1 WRITE DATA=60 
037252 005037 002006 @FERFLGS CLEAR ERROR FLAG 


3*THE REGISTERS WILL BE SAVED IN REINIO BUFFER 
037256 043312 JSR RO, @#SAVER 7 SAVE 

RHWC 

REINTO 

19. 


7FROM 

3T0 

NUMBER SAVED 
:*GIVE WRITE DATA COMMAND 

037270 004737 047344 JSR PC, a4COMHD sWRITE DATA COMMAND 
:*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


037274 005737 002040 TST a4#RH70 CHECK FOR RH70 CONTROLLER 
037300 001407 BEQ 8$ SKIP RH70 CODE AND DO RH11 IF NOT 


037302 012737 177702 003154 MOV #-76,QA#REINTO  ;SAVED RHWC SHOULD BE = 76 (OCTAL) 
037310 012737 003130 003156 MOV #WRFROM+<2*256. >+<2%8.>, @ARE INTO+2 

;SAVED RHBA SHOULD BE WRFROM+256+8 
037316 000406 9$ SKIP NEXT RH11 CODE 


037320 012737 177774 003154 : #-4 ,QARE INTO SAVED RHWC SHOULD BE = 4 
037326 012737 003314 003156 AWRFROM+<2*256. >+<2*66.>, @HRE INTO+2 
SAVED RHBA SHOULD BE WRFROM+256+66 


052737 003160 : #OR ,@AREINTO+4 ;SAVED RHCS2 
2737 MIR, QAREINTO+4 ;SAVED RHCS2 
ASC! TRE ,@#REINTO+6; SAVED RHCS1 SHOULD HAVE ‘SC’ & ‘TRE* 
001000 MACE ,AAREINTO+10 ;SAVED RHER1 SHOULD HAVE ‘AOE’ 
142254 003166 @RHDST ,@#RE INTO+12;SAVED RHDST SHOULD HAVE= 
;RHDST IS UNDEFINED 


:*CHECK TO SEE WHAT TYPE OF DRIVE IS BEING TESTED 
:*AND SET UP CYLINDER ADDRESS ACCORDINGLY 


002036 @ARP0O6 =; MOVE ares FLAG TO ITSELF TO TEST 
14$ TREAT AS RPO4 IF = 
001457 003174 #815. -@#RE INTO+20: SAVED DESIRED CYLINDER ADDRESS 
0004 15$ : TREAT AS RPO6 

037410 012737 000633 003174 : #411. ,@MREINTO+20;SAVED DESIRED CYLINDER ADDRESS 
037416 013737 002016 003200 : @4ATTENT ,A@MREINTO+24 ;SAVED RHAS SHOULD HAVE APPRO. BIT 
037424 052737 003202 ADMD , AARE INTO+26; SAVED _RHMR 
037432 052737 003204 MATALERR!LST,@#REINTO+30 ;SAVED RHDS1 


7*AFTER A WRITE DATA COMMAND WITH ‘AOE’ ERROR 
;*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
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037440 0040 043312 RO, @#SAVER 7 SAVE 
2 WC FROM 


3;T0 
037450 7. ;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


037452 113737 003201 002135 MOVB @ARE INTO+25 , @AWRFROM+25; SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE WRITE DATA COMMAND 
;*WITH AFTER COMMAND 


037460 043514 JSR RO, a#COMPAR ; COMPARE 
TO ;GOOD BUFFER 
TEST BUFFER 
NUMBER OF REGISTERS 
RETURN FOR ERROR 


037520 [RETURN FOR GOOD COMPARISON 


013705 047624 : @4ERWORD RS GETTING READY TO INDEX 
060505 5.R5 ;DOUBLE ERROR WORD 
016537 001630 042270 RHWC=2(R5) , a#REGADR FAILING REG. ADDRESS 
037514 104001 1 FORCED AOE ERROR CAUSED IMPROPER 
SREGISTER CHANGE 
037516 000207 PC :RE yp ey FURTHER COMPARISONS 


INN NI NNN NN Sd SN NNN SI IS nt 


NO ERR 
037520 005037 : @FERFLGS ;CLEAR ERROR FLAG 


:*DATA IS TO BE CHECKED HERE 


037524 042224 PC ,a@#PUTREG SAVE REGISTERS 
000377 #377 ,RO 2G DATA 
#D1SK,R1 :DATA WRITTEN INTO ‘DISK"' 
#256. ,R2 ; COUNTER 
047624 : #256. ,@aMERWORD :FOR ERROR WORD 
7 (R1)+ : COMPARE ee WITH DATA ON DISK 


RO, @#SGDDAT 


ERROR WORD NO 
ANY ERRORS ALREADY THERE? 
BRANCH IF YES 
ERROR ON WRITE DATA COMMAND WITH FORCED ‘AOE' 
[BRANCH TO AVOID PRINTING NEXT ERROR 
[WORD NO. GIVES WORD IN ERROR 
: [UNDO -(R1) FOR BAD DATA 
141324 MOV @SWR ,-(SP) GET SWITCH SETTING 
177177 #177177, (SP) [KEEP ONLY SWITCH 7 AND 8 
000200 MP #SwO7, (SP) + :IS 7 SET AND 8 RESET 
037624 7$ ;BRANCH OUT IF YES 


037626 005302 : R2 7IF NOT COUNT 256 WORDS 
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6981 037630 001345 BNE 3$ ;BRANCH IF 256. NOT DONE 
6 
6983 037632 


7 
? 
? 
? 
? 
? 
7 
7 
7 
2 
7 
7 
7 
i 
i 
i 
7 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
( 
i 
i 
i 
i 
i 
‘ 
f 
( 
i 
! 
! 
! 
! 
‘ 
‘ 
‘ 
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037632 


037702 


037706 
037714 
037722 


037730 
037736 
037742 
037746 


037752 
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012777 
052777 
042777 


012777 


012720 
012720 


001374 
012777 
004737 
104401 
000000 


013711 


10:10 


177400 
003154 
141666 
010000 
012000 
000400 
177777 
012000 
042654 
062450 
002070 


002006 
010000 
141612 


043312 


MACY11 30A(1052) 
T116 


002032 
142000 


002032 


141744 
141736 
141730 


141674 


141640 


141614 


TST117: 
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SCOPE 
MOV 


TST120: 
MO 


STACK , SP 
#TTNO,@4TSTNM 
PC ,@#CLDISK 
#DMD , @RHMR 
RC, QAMAKECYL 


AMSTACK SP 
A#TTNO,@4TSTNM 
PC, a@#CLDISK 


:*GIVE INDEX PULSE 
MOV DMD , 


BIS 
BIC 


3 * THESE 


;*THE REGISTERS WILL BE 
JSR 


RHWC 
RE INTO 
19. 


# @RHMR 
#MINX , @RHMR 
#MINX, RHMR 


RESET STACK 

THIS SAVES TEST NUMBER 

: INIT DRIVE 

:SET DIAGNOSTIC MODE 
SSUBROUTINE TO GIVE A SEEK 
CHANGE RHCC TO 0 


RESET STACK 
;THIS SAVES TEST NUMBER 
ZCLEAR REGISTERS AND SET UNIT NO. 


:SET DIAGNOSTIC MODE 
SET INDEX 
;CLEAR INDEX 


ARE REGULAR SETUPS 


#-256. , @RHWC 
#REINTO,RO 
RO, @RHBA 
HFMT22,(RO)+ 
#12000, (RO) + 
(RO) + 

(RO) + 

#256. ,R5 
#-1,(RO)+ 

R5 

1$ 
#12900,@RHDST 
PC, @4CHECKT 
,~CPHALT 
@AREFOR,AR1 
a4ERFLGS$ 
#FMT 22 ,aRHOF 
@RHCA 


RO, @4SAVER 


3256 DATA WORDS 4 HEADER WORDS 
THESE TWO INSTRUCTIONS GETS 
ADDR, OF WRFROM INTO RO AND 
BUS ADDRESS REGISTER 

: FORMA vane BIT WORDS 

:CYLIND 


R=0 
; TRACK= 50 SECTOR=0 KEYS=0 
SKEY1=0 


sKEY2=0 
>: COUNTER 
s;MOVE ALL ONES FOR DATA 


BRANCH IF DATA NOT COMPLETE 
;TRACK=20 SECTOR=0 


CHECK THAT DVA,RDY.DPR,DRY = 1 
[AND THAT NO OTHERS = 1. CANNOT CON- 
STOP THE TEST 


;GET READY FOR WRITE HEADER AND 
DATA WITH oe i RHCS1 

:CLEAR ERROR F 

SFORMAT BIT=1 he BIT WORDS) 
CYLINDER =0 


SAVED IN REINTO BUFFER 
SAVE 

:FROM 

:T0 

:NUMBER SAVED 


:*GO TO WRITE HEADER AND DATA 


SEQ 0165 
SEQ 


0164 
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001660 NOW RO WAS MAINTENANCE REG. ADDR. 
000001 ADMD , aR SET DIAGNOSTIC MODE 
052777 000001 141550 BIS #GO,@RHCS1 :GO 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
052737 BIS #SC'TRE ,a#REINTO+6 ;SAVED RHCS1 
#IAE, @AREINTO+10 ;SAVED RHER1 
#12001 ,a#REINTO+12:SAVED RHDST 
Q*ATTENT ,a#RE INTO+24 j SAVED RHAS 
#DMD, AAREINTO+26 ; SAVE 
003204 HATA‘ERR, a#RE INTO+30 SSAVED™ RHDS1 


7 *SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
JSR RO, @#SAVER 7 SAVE 
RHWC 7FROM 


WRF ROM TO 
19. NUMBER OF REGISTERS SAVED 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
113737 003201 002135 MOVB @ARE INTO+25 , @AWRFROM+25 ; SAVE UPPER RHAS 


a 


:*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
*WITH AFTER COMMAND 
043514 . ; COMPARE 
:GOOD BUFFER 
TEST BUFFER 
NUMBER OF REGISTERS 
sRETURN FOR ERROR 


7 SAME 
;RETURN FOR GOOD COMPARISON 


AINSI NI SIN I NS SS SI 


013705 047624 : Q#ERWORD . R5 GETTING READY TC INDEX 

060505 R ;DOUBLE ERROR WORD 

016537 001630 042270 RMGIe=2(RS) @#REGADR sFAILING REG. ADDRESS 

104001 1 FORCED IAE CAUSED IMPROPER 
SREGISTER CHANGE 

000207 PC ;RETURN FOR FURTHER COMPARISONS 


NO ERRORS 
004737 042620 g PC ,@ACLDISK CLEAR GO BIT 
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000004 TST121: SCOPE 

012706 MOV AMSTACK , SP RESET STACK 

012737 002032 ATTNO,Q#TSTNM = ;THIS SAVES TEST NUMBER 

004737 PC ,@#CLDISK [CLEAR REGISTERS AND SET UNIT NO. 


:*GIVE INDEX PULSE 
012777 MOV ADMD , ARHMR SET DIAGNOSTIC MODE 
052777 000004 BIS #MINX , @RHMR SET INDEX 
042777 BIC AMINX,@RHMR ;CLEAR INDEX 


:*THESE ARE REGULAR SETUPS 


012777 177400 141342 #-256. , @RHWC 3256 DATA WORDS 4 HEADER WORDS 
002110 WRF ROM ,RO ; THESE TWO INSTRUCTIONS GETS 
141334 RO,@RHBA zADDR. OF WRFROM INTO RO AND 
oe areola i npr tht 
012720 010000 MFMT22,(RO)+ 4 + ag it I WORDS 
¥ 
012720 000026 #22. ,(RO)+ Nan SECTOR=22, KEYS=0 
(RO)+ :KEY1 =0 


KEY2=0 
000400 = COUNT ER 
177777 e ° , (RO) + sMOVE ALL ONES FOR DATA 


1$ BRANCH IF DATA NOT COMPLETE 
012777 000026 141306 #22. ,@RHDST 3 TRACK=0 SECTOR=22 


004737 042654 PC ,a@#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 
104401 062450 -CPHALT ZAND THAT NO OTHERS = 1. CANNOT CON- 
000000 :STOP THE TEST 


013711 002064 @AWRIFOR ,AR1 :GET READY FOR WRITE HEADER AND 
DATA WITH ee ae RHCS1 

005037 002006 aFERFLGS CLEAR ERROR F 

012777 010000 141262 #FMT22 ,@RHOF :FORMA BIT=1 de BIT WORDS) 

005077 141260 @RHCA ZCYLINDER =0 


:*AS EXCEPTION IS ASSERTED BEFORE RUN IS 

:*LATCHED RHWC,RHBA,RHCS1,RHCS2 CANNOT BE CHECKED 

: *BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS 
:*ON DIFFERENT UNITS 


:*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 

JSR RO, @#SAVER 3 SAVE 

RHER1 ; FROM 

RE INTO :TO 

13. NUMBER SAVED 

:*GO TO WRITE HEADER AND DATA 
001660 @4RHMR , RO RO HAS MAINTENANCE REG. ADDR. 
000001 #DMD , ARO Ser DIAGNOSTIC MODE 

052777 000001 141216 #GO,aRHCS1 360 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


043312 
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040472 
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012737 


113737 


013705 
060505 
016537 
104001 
000207 


004737 


8 10:10 


002000 
000027 
002016 
000001 
140000 


043312 


003171 


043514 


047624 
001640 


042620 
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002125 


042270 


23: 


3$: 
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MOV MIAE ,@ARE INTO ;SAVED RHER1 
MOV #23. ,@#REINTO+2;SAVED RHDST 

MOV QAATTENT ,a#REINTO+14 ty RHAS 
BIS #DMD,a#REINTO+16 ;SAVED R 

BIS #ATA‘ERR, a#RE INTO+20 SAVED. RHDS1 


-— “oe cone —— SO THAT COMPARES CAN BE DONE 


RO, a4 7 SAVE 
RHER1 ;FROM 
WRF ROM :TO 
13. NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

[*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @ARE INTO+15 ,a@AWRFROM+15;SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
:*WITH AFTER COMMAND 
JSR RO, @4#COMPAR ; COMPARE 


REINTO ;GOOD BUFFER 

WRF ROM zs TEST BUFFER 

i ; NUMBER OF REGISTERS 

2$ ;RETURN FOR ERROR 

2$ 7 SAME 

3$ ;RETURN FOR GOOD COMPARISON 

MOV @F/ERWORD ,R5 sGETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHER1-2(R5), @#REGADR sFAILING REG. ADDRESS 

ERROR 1 FORCED IAE CAUSED IMPROPER 
;REGISTER CHANGE 

RTS PC ;RETURN FOR FURTHER COMPARISONS 
ZNO ERRORS 


JSR PC ,a@4CLDISK CLEAR GO BIT 


SEQ 0168 
SEQ 0167 


4 
7 
7 
Z 
7 
4 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
v4 
7 
5 
5 
? 
? 
? 
? 
7? 
7? 
? 
7 
? 
? 
? 
7 
? 
? 
? 
? 
7 
? 
7 
7 
? 
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fa) 
~ 
D>? 


TST122: SCOPE 
012706 001000 STACK , SP RESET STACK 

012737 002032 #TTNO,@#TSTNM = ;THIS SAVES TEST NUMBER 

004737 PC,@4CLDISK CLEAR REGISTERS AND SET UNIT NO. 


3*GIVE INDEX PULSE 
012777 141066 MOV #DMD , ARHMR SET DIAGNOSTIC MODE 
052777 141060 #MINX , ARHMR SET INDEX 
042777 141052 MINX ,@RHMR CLEAR INDEX 


ARE REGULAR SETUPS 


012777 141016 #-256. , @RHWC 3256 DATA WORDS 4 HEADER WORDS 
#WRF ROM ,RO ; THESE TWO INSTRUCTIONS GETS 
RO, @RHBA ADDR. OF WRFROM INTO RO AND 

;BUS ADDRESS REGISTER 

012705 000400 #256. RS ; COUNTER 

012720 : #-1,(RO)+ SMOVE ALL ONES FOR DATA 

005305 R5 

001374 BNE 1$ ;BRANCH IF DATA NOT COMPLETE 

012777 140776 #0. ,@RHDST ; TRACK=0 SECTOR=0 


004737 PC ,@#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 
104401 ~CPHALT [AND THAT NO OTHERS = 1. CANNOT CON- 
000000 ;STOP THE TEST 


NNNNNNNNWNAWNNWWN 


013711 @4WRIDAT ,AR1 GET READY FOR WRITE 


DATA WITH 60 aa RHCS1 
00503: aVERFLGS :CLEAR ERROR FLA 
012777 140752 #FMT 22, @RHOF [FORMA BIT=1 (16 BIT WORDS) 


005737 we ;MOVE — TO ITSELF TO TEST 
001404 TREAT DRIVE AS RPO4 IF FLAG = 0 


012777 140740 #815. ,@RHCA CYLINDER = 815 (ONE TOO MANY) 
000403 BR 5$ ; TREAT DRIVE AS RPO6 


012777 140730 4$: #411. ,Q@RHCA CYLINDER = 411 (ONE TOO MANY) 
; TREAT DRIVE AS RPO4 


;*AS EXCEPTION IS ASSERTED BEFORE RUN IS 

; *LATCHED RHWC ,RHBA,RHCS1,RHCS2 CANNOT BE CHECKED 
*BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS 
7*ON DIFFERENT UNITS 


3*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
JSR RO, @#SAVER : SAVE 

RHER1 ;FROM 

RE INTO :TO 

13. NUMBER SAVED 


:*GO TO WRITE HEADER AND DATA 


013700 00 MOV @4RHMR ,RO RO HAS MAINTENANCE REG. ADDR. 
012710 MOV #DMD , aRO Ser DIAGNOSTIC MODE 
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052777 


012737 


052737 


004037 
001642 
002110 
000015 


113737 


013705 
060505 
016537 
104001 


000207 


004737 


000001 
002900 
000001 
002016 
000001 
140000 


043312 


003171 


042620 
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BIS #G0,@RHCS1 :G0 


;*CHANGE SAVED REGISTERS TO tg VALUE 
MOV MIAE ,AAREINTO ;SAVED RHER1 
#1. ,QMREINTO+2; SAVED RHDST 
QAFATTENT ,AAREINTO+14 ; SAVED RHAS 
#DMD, Q#REINTO+16 ;SAVED RHMR 
MATA!ERR ,@#REINTO+20 ;SAVED RHDS1 


z*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
JSR o@ASAVER 7 SAVE 
RHER1 FROM 

WRF ROM :T0 

13. NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
:*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @ARE INTO+15 ,@#WRFROM+15;SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
z*WITH AFTER COMMAND 

JSR RO, @#COMPAR ; COMPARE 

:GOOD BUFFER 

: TEST BUFFER 

NUMBER OF REGISTERS 
RETURN FOR ERROR 


7 SAME 
;RETURN FOR GOOD COMPARISON 


9 sa R5 GETTING READY TO INDEX 
oR ;DOUBLE ERROR WORD 
RHERT-2CR5), @#REGADR sFAILING REG. ADDRESS 
FORCED IAE CAUSED IMPROPER 
[REGISTER CHANGE 
PC [RETURN FOR FURTHER COMPARISONS 


NO ERRORS 
PC, ,a#CLDISK CLEAR GO BIT 


SEQ 0170 
SEQ 0169 
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TST123: SCOPE 
000001 001212 MOV #1, $TINES ::D0 1 ITERATION 
000000 177776 MOV #0.PS ZRE INSTATE PS TO 0 
041120 TYPE ,65$ : TYPE ASCIZ STRING 
BR 64$ = °GET OVER THE ASCIZ 
QHUNIT,-(SP) GET READY TO TYPE UNIT NUMBER 


-67$ abit ASCIZ STRING 
66$ 3GET OVER THE ASCIZ 
@ASERTTL,-(SP) :GET READY TO TYPE NUMBER OF ERRORS 


7CLEAR TOTAL NUMBER OF ERRORS 
;CLEAR TEST NUMBER 
@ASELECT STARTING FROM 210 ? 


3$ TEST NEXT DRIVE IF NOT 
[CONTINUE ON THIS ONE IF SO 

@4SPASS ; INCREASE PASS COUNT 

, SENDMG ;TYPE END PASS # 

@4SPASS ,- (SP) 


— 

MW oS | OO 
— 

SANTOS 


RRRRRRLRRRALE 
BESTS 


;DO NEXT TESTS 


NO. OF UNITS PRESENT DECREMENTED 
BRANCH IF ALL DRIVES COMPLETE 
UNIT UNDER TEST 

; TABLE 


(R1)+,RO ;1S THIS UNIT JUST TESTED 
2$ [BRANCH IF YES 

1$ ;BRANCH IF NO 

(R1) ,Q@#UNIT ;THIS IS NEXT UNIT 
a4TSTS [GO FOR NEXT TESTS 


#* * SUBROUT INE S*** 


3:ZERO THE TEST NUMBER 
2eZER O THE NUMBER OF ITERATIONS 
I $PASS INCREMENT THE PASS NUMBER 
001100 +s eamapeiiges i DON'T ALLOW A NEG. NUMBER 
. 


SDOAGN 2s VES 
ptt at : RESTORE COUNTER 


, SENDMG zTYPE ‘END PASS . 
$PASS ,~(SP) : TSAVE SPASS FOR TYPEQUT 
aa TYPE=-DECIMAL ASCII WITH SIGN 
TYPE , SENULL TYPE A NULL CHARACTER 
$GET42: MOV a#42 ,RO ::GET MONITOR ADDRESS 
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012637 


377 
042412 
051501 


177776 
041456 


002032 
041534 
001110 


001223 
041604 


041672 
041760 


000002 
001106 
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000 


0421 
0201 


7 
2 


6 
3 


ND OF PASS ROUTINE SEQ 0171 
~ $DOAGN : ;BRANCH IF NO MONITOR 
SENDAD: JS PC, (RO) 
NOP 


a(PC)+ 7 RETURN 


TST1 
-1,-1,0 sNULL CHARACTER STRING 
"ASCIZ <15><12>/END PASS #/ 


z**HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
7**0N HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 
;**PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 


7**WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
3**THE PROGRAM GOES BACK TO CAN BE CHANGED. 

;**THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 

:**1,. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

3**2. LOOP ON ERROR SWITCH MUST BE SET 

3**3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

ae od THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
7**THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
ee TEST aw Up IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
:**THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
sseCOMES TO THE END OF THE TEST UNDER CONSIDERATION. 


SHAFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
[**NORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 FIRST ADDRESS OF TEST 


OPERSEL : 
CLR PS MAKE PROCESSOR STATUS ZERO 

,65$ 73 TYPE ASCIZ STRING 

64$ 3GET OVER THE ASCIZ 

@4TSTNM,~(SP) :GET READY TO TYPE TEST 


ER 
-67$ ZI TYPE ASCIZ STRING 


66$ 3;GET OVER THE ASCIZ 
@ASLPERR,-(SP) :GET READY TO TYPE LOOP BACK PC 


i ASCIZ STRING 


3;GET OVER THE ASCIZ 


#2, (SP) GET LPADR 
(SP) +,@#$LPADR 
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042044 75$ :i TYPE ASCIZ STRING 
BR 74$ 

042110 .77$ 
BR 76$ SIGET OVER THE ASCIZ 


001110 (SP)+,@#$LPERR ;GET LPERR 
001106 @ASLPADR ,~(SP) 


-SBTTL SAVE REGISTERS ROUTINE 


:*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
coin MEMORY LOCATIONS TAGED FROM ‘WC'’ TO ‘EC2"’ 


THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
;*AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
z*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


RO,-(SP) 33PUSH RO ON STACK 

R1,-(SP) ;3PUSH R1 ON ag 

R2,~-(SP) 33PUSH R2 ON STACK 
344 4 ARHWC , RO 3 STARTING ADDRESS OF 


REG 
HC RI [STARTING ADDRESS OF WERE SAVED 
#RHCC-RHWC+2/2,R2 ;NUMBER OF REG. INTO R2 

+ gee (R1)+ ;SAVE HARDWARE REG. 

10$ 

(SP) +,R2 3:POP STACK INTO R2 

(SP)+,R1 32:POP STACK INTO R1 

te 3:POP STACK INTO RO 


-SBTTL FLOAT 1 AND 0 


;*FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER 
; *ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4 


MASK: 0 BITS UNDER TEST 
000000 LERR: 0Q ERROR HLT ADDRESS 
000000 REGADR: 0 


012537 042264 BITST: FETCH DATA MASK 
012504 MO R4 :GET ADDRESS OF REG. UNDER TEST 


010437 042270 
:GET ERROR RETURN ADDR. 
:MODIFY RETURN ADDR. TO JUMP OVER RTS 
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CZRJGC.P11 26-JUL-78 10:10 FLOAT 1 AND 0 SEQ 0173 
7446 042314 012703 000001 MOV #1, R3 INITIALIZE DATA PATTERN 
7447 042320 004737 042342 BLT1: JSR PC, BLT2 ;OUTPUT FLOATING ZERO 
7448 042324 004737 042342 JSR A, BLT2 OUTPUT FLOATING ONE 
7449 042330 000241 CLC 
7450 042332 006103 ROL R3 SHIFT PATTERN 
7451 042334 005703 TST R3 
7452 042336 001370 BNE BLT1 ;BRANCH IF NOT COMPLETE 
7453 042340 000205 RTS R5 RETURN TO TEST 
7454 042342 005103 BLT2: COM R3 ; COMPLEMENT PATTERN 
7455 042344 012737 042352 042600 MOV #BLT3, @MLAD SET SCOPE LOOP 
7456 042352 032777 001000 136560 BLT3: BIT #SWO9,aSWR [LOOP ON ERROR 
7457 2360 001411 BEQ & ;BRANCH IF NO 
7458 042362 105737 001103 TSTB @4SERFLG sANY ERRORS 
7459 042366 001406 BEQ 4$ ;BRANCH IF NO 
7460 042370 000005 RESET START WITH AN INIT 
7461 042372 013777 001774 137236 MOV Q@AUNIT,ARHCS2 =; SET UNIT NUMBER UNDER TEST 
7462 042400 004737 055176 JSR PC ,@#$TKINT sINITILIZE TK 
7463 INIT FOR SCOPING LOOPS 
7464 042404 010337 001124 4$: MOV R3,@4$SGDDAT : STORE GOOD DATA 
7465 042410 005137 042264 COM @4MASK AND MASK WITH PATTERN 
7466 042414 043737 042264 001124 BIC @4MASK, @#SGDDAT ;CLEAR THE REST 
7467 042422 005137 042264 COM @4MASK ;RESTORE MASK 
7468 042426 013714 001124 MOV @FSGDDAT,(R4) ;OUTPUT TO REGISTER 
7469 042432 011437 001126 MOV (R4) ,@ASBDDAT ; INPUT FROM REGISTER 
7470 042436 005137 042264 COM aYMASK 
7471 042442 043737 042264 001126 BIC @4MASK ,ANSBDDAT ;AND MASK OUT RECEIVED DATA 
7472 042450 005137 042264 COM @4MASK RESTORE MASK 
7473 =042454 023737 001124 001126 CMP @ASGDDAT , a#SBDDAT 31S DATA CORRECT 
7474 042462 001424 BEQ 1$ BRANCH IF GOOD 
7475 042464 011437 001126 MOV (R4) ,@ASBDDAT 
7476 042470 023704 001640 CMP @ARHCS1,R4 REGISTER UNDER TEST RHCS1? 
7477 042474 001004 BNE 2s BRANCH IF NOT 
7478 042476 052737 004200 001124 BIS #RDY!DVA,@A#SGDDAT;SET RDY AND DVA 
7479 042504 000410 BR 3$ 
7480 042506 023704 001636 2$: CMP @ARHCS2 ,R4 REGISTER UNDER TEST RHCS2? 
7481 042512 001005 BNE 3$ BRANCH IF NOT 
7482 042514 011446 MOV @R4 ,~ (SP) GET RHCS2 
7483 042516 042716 177477 BIC #*C<IR'OR>,(SP) :KEEP IR AND OR BIT 
7484 042522 052637 001124 BIS (SP)+,@#$GDDAT ;SET IR OR i A NEEDED 
7485 042526 004777 177534 3$: JSR mC. @LERR ;GO TO REPORT 
7486 042532 000240 NOP SREPLACE BY 104400" FOR LOCAL SCOPE LOOP 
7487 042534 000207 1$: RTS PC 
7488 
7489 
oe ; -SBTTL CLEAR MEMORY ROUTINE 


R 
re) 
N 


THIS CLEARS ANY BLOCK OF MEMORY 
FILLING IT WITH ANY DATA 


CALL 
JSR RO,CLAREA 
Xx STARTING ADDRESS OF BLOCK 


Y 

Z ;DATA TO BE FILLED 

7500 #R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 

7501 7*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 


ane eneennnee 


BeBe Se Be Be & . 
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3*R3 WILL HAVE DATA TO BE FILLED 
:*TO AVOID DIVIDE ROUT:NE TWO DECREMENT R2 WILL BE USED 


CLAREA: 
010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
010246 . :Z;PUSH R2 ON STACK 
Fn R3 ON STACK 


sDATA 

zNO. OF LOCATIONS MINUS TWO 

000002 #2,R2 sGET TWICE NO OF LOCATIONS 
: ~ ap *MOVE IN DATA 


R2 
1$ 
(SP)+,R3 


(SP)+,R2 ; 
(SP)+,R1 : POP STACK INTO R1 
RO URN 


;BRANCH IF NOT COMPLETE 
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_ LOCAL TRAPS 


000000 LAD: 
032777 001000 136330 T.SCOP: ol + ati aSwWR 


042600 MOV @ALAD, (SP) 
1$: RTI 


;*EXAMPLE OF THE USE OF THE ABOVE 
7*THIS WILL LOOP BETWEEN X: AND SCOP1 PROVIDED THERE IS NO ‘NEWTST"’ 
:*MOV AX, @A4LAD 


5 -«X: <= = 
** os ee 
-* -<< -<—- 


-* 
e 


CLEAR DISK ROUTINE 


013701 001640 CLDISK: @FRHCS1, 3R1 WILL BE CONTROL AND STATUS1 
013702 001636 MO @ARHCS2, zR2 WILL BE CONTROL AND STATUS2 
013703 001662 @ARUDS1, 3R3 WILL BE DISK STATUS REGISTER1 
013704 001642 QAP 4ERI, 7R4 WILL BE ERROR REGISTER #1 


012712 000040 #CLR,aR2 ;CLEAR ALL REG. 
013712 001774 @FUNIT ,AR2 ;REINSTATE UNIT 


NO. 
005011 aR? ;CLEAR FUNCTION BITS 
000207 PC 
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011637 


022737 
001423 
032737 
001004 


032737 
001004 


1 
010337 
104026 
000413 
032737 
001004 
010337 
104026 
000403 
010337 
104026 


000207 


062716 
000207 


002014 
000004 
042224 
004200 


004000 
001122 


000200 
001122 


001122 
001736 
001100 
000600 
000400 
001122 


000200 
001122 


001122 


000006 


MACY11 


002014 
001714 


001714 


001714 


001736 


001736 
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-SBTTL CHECK DISK STATUS ROUTINES 


3*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 
>*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1 
:*IT ALSO CHECKS THAT NO OTHER BITS IN THESE REGISTERS = 1 


CHECKT: MOV (SP) ,a#PCJSR SAVE PC OF JSR+4 
SUB #4 ,aAPCJSR GET PC OF ee 
JSR PC ,@#PUTREG SAVE REGISTERS 
CMP #DVA!RDY,@#CS1 :RHCS1 SHOULD HAVE DEVICE AVAILABLE 
ZAND BE READY 
BEQ 3$ ;BRANCH IF GOOD 
BIT ADVA,aACS1 ;BAD SO TEST DEVICE AVAILABLE 
BNE 1$ BRANCH IF DVA_ THERE 
MOV R1,@4$BDADR ADDRESS OF BAD REGISTER (RHCS1) 
ERROR 26 :RHCS1 DID NOT HAVE DEVICE 
AVAILABLE AT START OF TEST 
BR 3$ ;BRANCH ion NEXT COMPARE 
1$: BIT ARDY ,@ACS1 TEST READ 
BNE 2$ 7 IF RDY THERE BRANCH 
MOV R1,@4$BDADR TADDRESS OF BAD ot ag (RHCS1) 
ERROR 26 ;RHCS1 DID NOT HAVE READ 
[RIGHT AT START OF TEST. 
2$: BR 3$ ;BRANCH TO NEXT COMPARE 
MOV R1,@4$BDADR ADDRESS OF BAD REGISTER (RHCS1) 
ERROR 26 =RHCS1 HAD SOME BITS OTHER 
THAN DVA AND RDY SET 
TALL OTHER BITS SHOULD BE 0 
3$: MOV a4DS1,- (SP) GET RHDS1 


BIC #VV'PROG,(SP) ;CLEAR VV AND PROGRAMABLE BIT 
CMP #DPR!DRY,(SP)+;RHDS1 SHOULD HAVE THESE SET 


BEQ 8$ BRANCH IF THEY ARE 

4$: BIT ADPR ,@ADS1 TEST DRIVE ax 
BNE 5$ CONTINUE IF THERE 
MOV R3,@4$BDADR SADDRESS OF BAD te yh (RHDS1) 
ERROR 26 [RHDS1 DOES NOT HAVE DPR 
BR 7$ BRANCH OUT 

5$: BIT DRY ,@ADS1 TEST DRIVE READY 
BNE 6$ IF DPR WAS THERE, BRANCH IF GOOD 
MOV R3,@4$8DADR TADDRESS OF BAD REGISTER (RHDS1) 
ERROR 26 ;RHDS1 DOES NOT HAVE DRY 
BR 7$ BRANCH OUT 

6$: MOV R3,a4$BDADR ADDRESS OF BAD REGISTER (RHDS1) 
ERROR 26 ;RHDS1 HAS SOME BITS OTHER 


THAN MOL, DRY, DPR, SET 
TALL OTHER BITS SHOULD 0 
7$: RTS PC RETURN TO TEST AND HALT 


8$: ADD #6, (SP) ;ADJUST STACK TO GET OVER HALT IN TEST 
RTS PC RETURN TO TEST AND CONTINUE TESTING 
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an 
NSN 
"9 


:*THIS CHECKS THAT DEV:CE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 
;*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 


011637 002014 CHECKE: MOV (SP) ,a@#PCJSR sSAVE PC OF JSR+4 
000004 002014 SUB #4, QAPCUSR ;GET PC OF JSR 
042224 PC ,@4PUTREG ;READ & SAVE REGISTERS 
032737 000200 001714 ARDY ,@ACS1 ae ae ie HAVE DEVICE AVAILABLE 
s Y 


001004 1$ ;BRANCH IF GOOD 

010137 001122 R1,@4$BDADR sFAILING REGISTER 

104026 26 zRHCS1 IS IN ERROR 
:DOES NOT HAVE DVA, RDY 

000427 BR 4$ ;BRANCH OUT 

032737 004000 001714 : ADVA,aACS1 sRHCS1 SHOULD HAVE DEVICE AVAILABLE 
sAND BE READY 


001004 2$ BRANCH IF GOOD 
010137 001122 R1,@4$BDADR sFAILING REGISTER 
104026 26 ;RHCS1 IS IN ERROR 

[DOES NOT HAVE DVA, RDY 
000417 BR 4$ BRANCH OUT 
032737 000200 001736 f ADRY ,aA4DS1 ;RHDS1 SHOULD HAVE DPR,DRY 
001004 3$ BRANCH IF THERE 
010337 001122 R3,Q#$BDADR FAILING REGISTER RHDS1 
eoree 26 :RHDS1 DOES NOT HAVE DPR,DRY 


00040 BR 4$ BRANCH OUT 

032737 000400 001736 2 ADPR,@ADS1 :RHDS1 SHOULD HAVE DPR,DRY 

001004 5$ BRANCH OUT AND CONTINUE IF THERE 
010337 001122 R3,@4$BDADR FAILING REGISTER RHDS1 

104026 26 ;RHDS1 DOES NOT HAVE DPR,DRY 


000207 : PC RETURN TO TEST AND HALT 


062716 : . sADJUST STACK TO GET OVER HALT IN TEST 
000207 PC ;RETURN TO TEST AND CONTINUE TESTING 


in in OR in ee On in en On ee en OR OR ORO OR OR OR OR OR OR OR OR OR OR OR OR OR OR OR OR OR OR OR ODOR ODOR OR OR ON ORO OOOO ONO On an ON ON on an 
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WAIT LOOP 

ONE LOOP OR ONE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 
ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN) 

WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN) 


177777 : Lae ; WAITING A 


oT: RO 
000002 ZGET ADRESS OF REG. ADDERSS 
001204 ;WAT PC+2 IN $TMP3 

000002 WAT PC FOR TYPEOUT 

001176 “WAIT REGISTER ADDRESS 
001290 :WAIT ON BIT 

000002 ) [RESTORE RETURN ON STACK 
-RO sRESTORE RO 

043170 001202 MP2 ; TEMPORARY COUNT 

001200 135732 : aASTMP1 ,a$TMPO iTS REQUIRED BIT THERE ? 


BN 2$ 
001202 _ : :C OUNT 


;BRANCH IF NOT TIME UP 
043170 001202 @ATIMCNT ,a#STMP2 ; TEMPORARY COUNT 
001200 135706 : aASTMP1 , aSTMPO 21S REQUIRED BIT THERE ? 


2$ 
001202 a4$TMP2 3 q OUNT 
$ IF NOT Uy UP 


3 ; BRANCH 
135672 001126 @STMPO ,a#SBDDAT ;REGISTER CONTENT 
16 sWAITED ON BIT FAILED TO SET 


mM 
wf 


CALL FOR THE ABOVE WAITLOOP IS 


MOV aA , 4X$ 7A_CONTAINS REGISTER ADDRESS 
- - - HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 


x< 
w” 


oPe Be Be Be 
ae Pp eR RR HHH 


;ABSOLUTE REG. ADDRESS UNDER WAIT 
[BIT WAITED FOR 
> CONT INUE 


ee a a a a a ee es i ee ee ee es es es ee es fe ee OA PAO OH OH OH OO OO M8 ON fs OM) 1 OW Mn On os On OH Ms MON Os Os OH OH OH Hh A 
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047504 
047507 
047506 


047564 


136200 
136174 


000001 
136164 
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-SBTTL SAVE ROUTINE 


:*THIS IS A SUBROUTINE TO SAVE REGISTERS 
>*IN THE REGISTER TABLE TO ANY LOCATION 
:*THE CALL IS 

; RO, @#SAVER 


:*T0 
: *NUMBER OF WORDS SAVED 


R1,-(SP) :zPUSH R1 ON STACK 
7zPUSH R2 ON STACK 
— R3 ON STACK 


0 
0 ; NUMBER 
a(R1)+, (R2)+ sSAVE REGISTER CONTENTS 
R3 ; COUNT 


1$ [BRANCH IF NOT DONE 
(SP)+,R3 7:POP STACK INTO R3 
(SP)+,R2 3zPOP STACK INTO R2 
| li api 33POP STACK INTO R1 
R 


-SBTTL WRITE CHECK ROUTINE 


z*THIS IS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA 
:*CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


;*THESE ARE TO SET UP FOR DISKLESS USE ONLY 
WRCHHD: MOV MFMT22 ,AACYL = CYLINDER 0 FORMAT 16 BIT WORDS 
MO #1, a#SECOTR+1 ; TRACK=1 
#1. aWSECOTR 
@4KEY1 


@AKEY2 

#36. ,DAWORD WORDS 

aAX STHIS IS A READ OPERATION 
RS, a@#CRC 3GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC ,a@#CLDISK SET UP GENERAL REGISTERS 

SAND CLEAR DISK REGISTERS 
4-40. ,aRHwWC 336 DATA WORDS 4 HEADER WORDS 
ee eecronet ADDRESS OF READ BUFFER 


*S 

"1S :TRACK=1 IN UPPER BYTE 
(SP)+,@RHDST | :TRACK=1, SECTOR=1 IN RHDST 
#FMT22'ECI ,@RHOF :16 BIT WORDS 


SEQ 0181 
SEQ 0180 


& 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
g 
8 
8 
g 
g 
g 
& 
g 
é 
g 
é 
é 
& 
é 
é 
g 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
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M 
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WRITE CHECK ROUTINE 


@RHCA 
PC ,@#CHECKT 
~CPHALT 


@FWRCHDT ,@R1 
PC ,@#COMHD 


PC 


14 
PAGE 183 


ECC CORRECTION INHIBIT BECAUSE 

sECC LOGIC _IS NOT CHECKED YET 
;CYLINDER=0 

CHECK THAT DVA,RDY,DPR,DRY = 1 

[AND THAT NO OTHER S = 1, CANNOT CON- 
;STOP THE TEST 

[WRITE CHECK HEADER AND DATA=52 

; INTO RHCS1 

[WRITE CHECK HEADER AND DATA 

;SAME AS READ HEADER AND DATA 


RETURN TO WRITE CHECK TEST 





SEQ 0182 
SEQ 0181 CZR 


oO 
™~ 
i o] 


mm 
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CZRJGC. P11 26-JUL-78 10:10 E CHECK ROUTI SEQ 0182 
7756 
7757 
7758 -SBTTL COMPARE ROUTINE 
7759 
7760 
7761 :*THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
7762 te R1 HAS GOOD DATA BUFFER ADDRESS 
7763 :#Re HAS TEST DATA BUFFER ADDRESS 
7764 $STMPO HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER 
7765 eSTPl HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 
7766 + *R3 HAS NUMBER OF WORDS TO BE COMPARED 
ne >*R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 
7769 043514 COMPAR: 
7770 043514 010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
7771 043516 010246 MOV R2,-(SP) : PUSH R2 ON STACK 
7772 043520 010346 MOV R3,-(SP) 77PUSH R3 ON STACK 
7773 043522 010446 MOV R4,~-(SP) : PUSH R4 ON STACK 
7774 043524 010546 MOV R5,-(SP) ;PUSH RS ON STACK 
7775 043526 012001 MOV (RO)+,R1 T ADDRESS OF GOOD DATA BUFFER 
7776 043530 012002 MOV (RO) +,R2 * ADDRESS OF TEST DATA BUFFER 
7777 043532 012003 MOV (RO) +,R3 zNO OF WORDS TO BE COMPARED 
7778 043534 012037 001176 MOV (RO)+,$TMPO RETURN ON ERROR TO PRINT HEADER 
043540 012037 001200 MOV (RO)+,$TMP1 ;RETURN ON ERROR TO PRINT DATA 
7780 043544 011000 MOV (RO) .RO RETURN ON NO ERROR 
7781 043546 010304 MOV R3,R4 ;NO OF WORDS TO BE COMPARED 
7782 043550 005204 INC R4 
7783 043552 010437 047624 1$: MOV R4,d#ERWORD zFOR ERROR WORD NO 
7784 043556 022122 CMP (R1)+,(R2)+ ; COMPARE GOOD WITH TEST DATA 
ores 043560 001426 BEQ 3$ BRANCH IF GOOD 
7787 043562 014137 001124 MOV -~(R1) ,a#$GDDAT ;GOOD DATA 
7788 043566 014237 001126 MOV -(R2),a#$BDDAT ;BAD DATA 
7789 043572 160337 047624 SUB R3,@4ERWORD sERROR WORD NO. 
7790 043576 005737 002006 TST @FVERFLGS ANY ERRORS ALREAY THERE 
7791 043602 001003 BNE 2$ ;BRANCH IF YES 
7792 043604 004777 135366 JSR PC, a$STMPO ;RETURN TO PRINT HEADER 
7793 043610 000402 BR 5$ BRANCH TO AVOID i NEXT ERROR 
7794 043612 004777 135362 2$: JSR PC, a$TMP1 sRETURN TO PRINT DAT. 
7795 043616 022122 5$: CMP (Ri) +, (R2)+ ;UNDO -(R1) AND arity FOR ERRORS 
7796 043620 Q17746 135314 MOV aSwWR =(SP) :GET SWITCH SETTING 
7797 043624 042716 177177 BIC #*C600, (SP) [KEEP ONLY SWITCH 7 AND 8 
7798 043630 022726 000200 CMP #SWO7, (SP)+ :1S 7 SET AND 8 RESET 
7799 043634 001402 BEQ 4$ ;BRANCH OUT IF YES 
7800 043636 005303 3$: DEC Re ; COUNT 
7801 043640 001344 BNE 1$ ;BRANCH IF ALL NOT DEVICE 
7802 043642 4$: 
7803 043642 012605 MOV (SP)+,R5 7ZPOP STACK INTO R5 
7804 043644 012604 MOV (SP) +,R4 ::POP STACK INTO R4& 
7805 043646 012603 MOV (SP)+,R3 :7;POP STACK INTO R3 
7806 043650 012602 MOV (SP)+,R2 : POP STACK INTO R2 
7807 043652 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
7808 043654 000200 RTS RO sRETURN TO MAIN PROGRAM 
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012737 


012777 


012777 
005077 
004737 
104401 


000000 
013711 
004737 


000207 


042620 


177740 


002056 
047344 
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047507 
047506 


047564 


135666 
135662 


000001 
135652 
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z*THIS IS A_ SUBROUTINE TO DO WRITE CHECK DATA 
;*CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


;* THESE ARE TO SET UP FOR DISKLESS USE ONLY 
047504 WRCHDA: 
MO 


#FMT22 ,AACYL CYLINDER 0 FORMAT 16 BIT WORDS 
#1,QAMSECOTR+1 =; TRACK=7 

#1 ,@A#SECOTR :SECTOR=1 

@AFKEY1 [KEY1=0 

@AKEY2 SKEY2=0 

#32.,Q4#DAWORD ;NO OF DATA WORDS 

aX THIS IS A READ OPERATION 


R5,a4CRC 7GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC, @4CLDISK 43 UP GENERAL REGISTERS 
ID CLEAR DISK REGISTERS 


#-32. , @RHWC 336 DATA WORDS 4 HEADER WORDS 
MREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
;SECTOR=1 
; TRACK=1 IN UPPER BYTE 
; TRACK=1, SECTOR= ‘ IN RHDST 
#FMT22'ECI,@RHOF 316 BIT WORDS 
sECC CORRECTION INHIBIT BECAUSE 
zECC LOGIC IS NOT CHECKED YET 
@RHCA 7 CYLINDER=0 
PC ,@#CHECKT [CHECK THAT DVA.RDY.DPR,DRY = 1 
~CPHALT SAND THAT NO OTHERS = 1. CANNOT CON- 
:STOP THE TEST 
@AWRCHEK ,aAR1 WRITE CHECK DATA=50 INTO RHCS1 
PC ,a4#COMHD zsWRITE CHECK HEADER AND DATA 
SAME AS READ HEADER AND DATA 


PC RETURN TO WRITE CHECK TEST 


SEQ 0184 
SEQ 0183 
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-SBTTL CRC GENERATION ROUTINE 


s*THIS IS A SUBROUTINE TO CALCULATE CRC FOR THE FOUR 
[*HEADER WORDS AND ag THEM IN ‘WCRC'' AND ‘'GCRC’’ 


[*R1 = REGISTER FOR fetes © ce ce CRC VALUE IS HERE 


LUE C 
-E. OUTPUT BIT VALUE B 


: TION 
s*R4 = THIS HAS BIT POSITION 15 VALUE E 
- NUMBER OF S 


:*$T 


WORD 
>*$TMP2 - NUMBER OF ee PER WORD = 16 


:*$TMP3 - TEMPORARY 


- TEMPORARY REG TO TRANSFER CARRY 
- THIS HAS DATA BIT VALUE D 


;*FETCH DATA BIT D 
7*B = D XOR 16 
7*C = B XOR 2 


:*E = B XOR 15 

;*ROTATE RIGHT ONE POSITION 
:*B GOES TO POSITION 1 

z*C GOES TO POSITION 3 

7*E GOES TO POSITION 16 


z*REPET 64 TIMES 
= *CALL JSR R5, rie ae 
FIRST LOCATION A 
[PUT CRC IN WCRC FOR READ GCRC FOR WRITE 


RO,~(SP) 3;PUSH RO ON STACK 
2GET at tn TO Ai. NO. 


73PUSH R4& ON STACK 
;CLEAR WORKING LOCATION 


WORD COUNT 
; TEMPORARY WORD STORAGE 
:BIT COUNT 
; TEMPORARY WORD STORAGE 
7GET LSB INTO ‘C’’ 
GET ABOVE a INTO $TMPS 
71S POSITION 15 HIGH 
1$ BRANCH IF POSITION 16 LOW 
etre ae GET POSITION 16 


R3 GET POSITION 16 

a4STMPS ,R3 ;XOR POSITION 16 WITH D 
:TO GIVE B 

#B1T14,R1 31S POSITION 2 HIGH 
7BRANCH IF POSITION 2 LOW 

77 widedetae GET POSITION 2 


R2 ;GET POSITION 2 





Ci 
Ci 
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7908 044146 060302 4$: ADD R3,P2 :XOR B WITH POSITION 2 

7909 ;TO GIVE C 

7910 044150 032701 000002 BIT #FSIT1,R1 t1S POSITION 15 HIGH 

7911 044154 001403 BEQ 56 SBRANCH IF POSITION 15 LOW 

7912 044156 012704 100000 MOV MBRITIS,RS GET POSITION 15 

7913 044162 000401 BR 6$% 

7914 044164 005004 5$: CLR RG GET POSITION 15 

7915 044166 060304 6$: ADD R3,R4 :XOR POSITION 15 WITH B 

7916 3T0 GIVE E 

7917 044170 006037 001206 ROR arSTMP4 7GET LSB INTO ‘C’’ 

7918 044174 006001 ROR R1 GET ABOVE C INTO R1 

7919 044176 005703 TST R3 : TEST B 

7920 044200 100403 BMI 7$ ;BRANCH IF B=1 

7921 044202 042701 100000 BIC #R1IT15,R1 :SET B IN POSITION 1 

7922 044206 000402 BR 10$ 

7923 044210 052701 100000 7$: BIS #BIT15,R1 ;SET B IN POSITION 1 

7924 044214 005702 10$: TST R2 TEST C 

7925 044216 100403 BMI 11$ BRANCH IF C=1 

7926 044220 042701 020000 BIC #B1T13,R1 :GET C IN POSITION 3 

7927 044224 000402 BR 12$ 

7928 044226 052701 020000 11$: BIS #B1T13,R1 ;GET C IN POSITION 3 

7929 044232 005704 12$: TST R4 TEST E 

7930 044234 100403 BMI! 13$ “BRANCH IF E=1 

7931 044236 042701 000001 BIC #BITO,R1 GET E IN POSITION 16 

7932 044242 000402 BR 14$ 

7933 044244 052701 000001 13$: BIS #BITO.R1 GET E IN POSITION 16 

7934 044250 005337 001202 14$: DEC a4STMP2 ;BIT COUNTER 

7935 044254 001310 BNE 15$ ;BRANCH IF 16 NOT DONE 

7936 044256 005237 001176 DEC a4$TMPO WORD COUNTER 

7937 044262 001275 BNE 16$ “BRANCH IF 4 NOT DONE 

7938 044264 010135 MOV R1,a(R5)+ [PUT CRC WHERE DESIRED 

7939 044266 012604 MOV (SP)+,R4 :zPOP STACK INTO R4 

7940 044270 012603 MOV (SP)+,R3 :zPOP STACK INTO R3 

7941 044272 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 

7942 044274 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 

7943 044276 012600 MOV (SP)+,RO :zPOP STACK INTO RO 

7944 044300 000205 RTS R5 

7945 

7946 

7967 

7948 

7949 :*THIS IS A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR 

7950 :*CYLINDER 0 (16 BITS PER WORD) 

7951 ;*TRACK 1, SECTOR 1 

7952 *KEY1 1 

7953 Z*KEY2 1 

7954 :*CRC THROUGH THE JSR R5,a4CRC 

ace :*256 WORDS OF 177400 

7957 z*CALL JSR PC ,A#SETDSK 

7958 

7959 044302 SETDSK: 

7960 044302 010046 MOV RO,-(SP) het RO ON STACK 

7961 044304 010146 MOV ae tA :PUSH R1 ON STACK 

7962 044306 010246 MOV -(SP) PUSH R2 ON STACK 


7963 044310 012700 177400 MOV Re Leo. RO BATA IN THE DISK 
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E 15 
27-JUL-78 12:41 PAGE 188 SEQ 0187 
CRC GENERATION ROUTINE SEQ 0186 

MOV #256. ,R1 ; COUNTER 
MOV #DISK R2 START OF Satie DISK 
MOV RO, (R2)+ SMOVE_IN DAT 
DEC R1 ; COUNT FOR 256 
BNE 1$ BRANCH IF 256 NOT COMPLETE 
MOV #17.,R1 32 ECC WORDS, 1 DATA GAP 

714 TOLERANCE GAP 
CLR (R2)+ ;CLEAR ECC,DATA GAP AND 

; TOLERANCE GAP 
DEC R1 ; T 
BNE 2$ ;BRANCH IF NOT COMPLETE 
3*NOW SET UP FOR DISKLESS USE 
MOV MFMT22 ,AACYL :CYLINDER 0 (16 BIT WORDS) 
MOVB #1,Q4SECOTR+1 ;TRACK=1 
MOVB #1, a4SECOTR ;SECTOR=1 
MOV #1 ,QAKEY) KEY1=1 
MOV #1 ,QAKEY2 sKEY2=1 
MOV 256.,@4DAWORD ;NO. OF DATA WORDS 
JSR RS ,aACRC :GO TO CALCULATE CRC 
CYL FIRST CRC WORD 
WCRC sPUT CALCULATED CRC 
MOV (SP)+,R2 72POP STACK INTO R2 
MOV (SP)+,R1 3=POP STACK INTO R1 
Ae a 3z;POP STACK INTO RO 


C2 
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044560 


012077 


012077 
012037 


012777 


005037 
004737 


004737 


001015 


002014 
000004 
042620 
042654 
062450 
001210 


135160 


000001 


135134 
135116 


135114 
047514 


014000 


002006 
047344 


042224 
002006 


047514 
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002014 


135116 


CRC GENERATION ROUTINE SEQ 0187 


3*THIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
;*(BIT #7) AND CRC ERROR (BIT #8) 


:*CALL JSR RO, @#HCCRCE 
COM ST ite BATA AND DATA 


[CYLINDER 
SECTOR 
; TRACK 
; WORD COUNT 
RHBA BUFFER ft 
1 =WRITE DATA O=REA 
;H=1 HEADER CHECK, “y=0 CRC CHECK 


HCCRCE: RO, a@4PCJSR SAVE PC OF JSR+4 
S #4 ,a#PCISR GET PC OF JSR 
PC, ,a4CLDISK ; INIT AND SETUP GENERAL REG. 
PC ,@A#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 
,CPHALT AND THAT NO OTHERS = 1. CANNOT CON- 
;STOP THE TEST 


(RO) ,@#STMPS 
(RO)+,aR1 
(RO) +,@RHCA 
(RO)+,-(SP) 
(RO) + 
(RO) +,1(SP) 
(RO) + 
(SP) +,@RHDST : 
(RO) +, ARHWC zNO. OF DATA WORDS +4 HEADER 
: IF A READ HEADER AND DATA 
(RO) +, @RHBA : STARTING ADDRESS OF BUFFER 
(RO) +, a@4X — READ HEADER AND DATA 
WRITE DATA 
MFMT22'ECI, @RHOF” 16 BITS PER WORD 
sECC yn ly 4 es 


CLR @4ERFLG$ ;CLEAR ERROR F 
JSR PC ,@4COMHD ; COMMAND 


:*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE *‘COMHD’' ROUTINE THAT MEANS SECTOR GAP, 

z*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

>*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

> *DETECTED 

*HEADER AND DATA ARE TO BE CHECKED. 


PC ,a#PUTREG SAVE REGISTERS 
ANY ERRORS ALREADY THERE 
BRANCH IF YES 
71S THIS A READ 
:1F A WRITE DATA BRANCH 
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8043 
8044 7*NOW THE READ BUFFER WILL BE CHECKED 
8045 ;*HEADER SHOULD BE COMPLETELY READ AS WRITTEN 
8046 :*NO DATA WORDS SHOULD BE READ 
8047 >*REINTO BUFFER HAS BEEN FILLED WITH 0 
poe | 7 *WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
8050 044562 004037 043514 JSR RO, @#COMPAR ; CHECK 
8051 044566 002110 WRF ROM ;GOOD DATA 
8052 044570 003154 REINTO TEST BUFFER 
8053 044572 000400 256. 34 HEADER 252 DATA 
8054 044574 044602 1$ RETURN POINT FOR ERROR HEADER 
8055 044576 044606 es ;RETURN POINT FOR ERROR DATA 
8056 044600 044644 10$ RETURN FOR GOOD COMPARISON 
8057 044602 104004 1$: ERROR 4 READ NEXT ERROR 5 
8058 044604 000207 RTS PC RETURN TO COMPARISON SUBROUTINE 
8059 044606 104005 2$: ERROR 5 ;WORD NO 1 THRU 4 ARE 
8060 ;HEADER WORDS AND HENCE 
8061 ;SHOULD BE READ AS pats ON 
8062 :DISK, WORD NOS. 5 ONWARDS 
8063 TSHOULD NOT BE READ AND HENCE 
8064 READ INTO BUFFER 
8065 [SHOULD BE UNCHANGED 
ie 044610 000207 RTS PC RETURN TO COMPARISON 
— 044612 000414 BR 10$ ; JUMP OUT 
8070 >*NOW THE DISK WILL BE CHECKED 
8071 ;*NO DATA SHOULD BE WRITTEN 
8072 ;*REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
8073 :*DISK HAS BEEN FILLED WITH 177400 
poate ;*WRFROM HAS BEEN FILLED WITH 125252 
8076 044614 004037 043514 3$: JSR RO, @#COMPAR ; CHECK 
8077 044620 003154 RE INTO :GOOD DATA BUFFER 
8078 044622 051422 DISK ; TEST BUFFER 
8079 044624 000400 256. 
8080 044626 044634 4$ ;RETURN POINT FOR ERROR HEADER 
8081 044630 044640 5$ RETURN POINT FOR ERROR DATA 
8082 044632 044644 10$ ;RETURN POINT FOR GOOD COMPARISON 
8083 044634 104004 4$: ERROR 4 ;READ NEXT ERROR 5 
8084 044636 000207 RTS PC RETURN TO COMPARISON SUBROUTINE 
8085 044640 104005 5$: ERROR 5 z;WORD NO ARE ALL DATA 
8086 ;WORDS THE SHOULD NOT 
8087 ;HAVE BEEN CHANGED BY THE 
8088 WRITE COMMAND 
8089 044642 000207 RTS PC RETURN TO COMPARISON SUBROUTINE 
8090 044644 005720 10$: TST (RO) + 31S THIS A HCRC ON HCE CHECK? 
8091 044646 001442 BEQ 6$ >BRANCH IF HCRC 
8092 044650 022737 000072 001210 CMP #72 ,QASTMPS 31S THIS A READ COMMAND 
8093 044656 001417 BEQ 11$ BRANCH IF YES 
8094 044660 017737 134756 001126 MOV @RHER1 ,A#SBDDAT ; TEST DATA 
8095 044666 022737 000200 001126 CMP #HCE ,@#$BDDAT ONLY HEADER COMPARE BIT? 
8096 ;SHOULD BE SET 


8097 044674 001470 BEQ 7$ BRANCH IF GOOD 
8098 044676 013737 001642 042270 MOV @ARHER1,@A#REGADR ;REGISTER ADDRESS RHER1 
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012737 000200 001124 MOV MHCE ,AASGDDAT ;GOOD DATA 

104027 ERROR 27 zAFTER AN ERROR ON THE 
;HEADER ONLY HCE SHOULD 

000460 7$ ;BE SET 


017737 134720 @RHER1,@#$BDDAT ; TEST DATA 
022737 100200 #DCK!HCE ,aMSBDDAT ; jon HEADER COMPARE BIT? 


SHOULD BE SE 
:DCK IS SET os ECC IS NOT READ 
[BRANCH IF GOO 


7$ 
001642 042270 @ARHER1 ,AAREGADR’ ; REGISTER ADDRESS RHER1 
100200 001124 MOV #DCK!HCE ,a#$GDDAT" GOOD D 
27 ZAFTER AN ERROR ON THE 
;HEADER ONLY HCE SHOULD 


7$ ;BE SET 
000072 001210 : #72, QASTMPS 71S THIS A READ COMMAND? 
12$ BRANCH IF A READ 
134652 001126 @RHER1 ,@#SBDDAT ; TEST DATA 
000400 001126 —— ZONLY CRC ERROR SHOULD BE THERE 


7 
001642 042270 @ARHER1 ,@AREGADR ;REG. ADDR = RHERI 
000400 001124 #HCRC,@#$GDDAT ;GOOD DATA 
27 AFTER A CRC ERROR ONLY CRC 
SHOULD BE SET 


000416 7$ [BRANCH OU 
017737 134614 001126 : @RHER1 ,@#SBDDAT ; TEST DATA 


022737 100400 001126 #DCK!HCRC ,@A#$BDDAT;HCRC AND DCK SHOULD BE SET 
:DCK IS SET BECAUSE ECC IS NOT READ 
7$ BRANCH IF GOOD 
100400 001124 #DCK!HCRC ,a#SGDDAT; GOOD DATA 
001642 042270 @ARHER1 ,AAREGADR; FAILING REGISTER RHER1 
27 TAFTER A CRC ERROR ON A READ 
;DCK AND HCRC SHOULD BE SET 
:DCK IS SET BECAUSE ECC IS NOT READ 
RO RETURN TO MAIN TEST 


QOusWN-O 


z*THIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE OF 
;*A WRITE HEADER AND DATA COMMAND 

:*IT TRYS TO GET SECTOR 10, TRACK 0, CYLINDER 0 
;*BUT COMES OUT AFTER ONE SECTOR 

;*THE COMMAND OS JSR PC,a4MIDDLE 

:*BAI IS SET 


MIDDLE: 
010046 MC RO,-(SP) ;;PUSH RO ON STACK 
010146 R1,-(SP) +:PUSH R1 ON STACK 
013777 002064 134546 @AWRIFOR,@RHCS1 WRITE NEADER AND DATA=62 


7 IN RHCS1 
012777 177766 134532 #-10. ,@RHWC 710 WORDS 
#WRFROM,@RHBA ;BUS ADDRESS=WRFROM 
#10, @RHDST DESIRED TRACK=0 SECTOR=10 
#BAI ,ARHCS2 7BUS ADDRESS INCREMENT INHIBIT 
012777 134520 #FMT 22, RHOF :FORMAT 16 BIT WORDS 
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005077 134516 : @RHCA ;CYLINDER=0 

012737 000001 045162 #1 ,04M:D SECTOR IS SET TO 1 n THAT 
sWE CAN GET OUT AT THE 
=MIDDLE OF AN OPERATION 
;LOOKING FOR SECTOR 10 

012777 000001 134510 ADMD , A@RHMR SET DIAGNOSTIC MODE 

000001 134462 #GO0,@RHCS1 :GO TO RHCS1 WITH 62 
053552 R1,@4SEARCH 
‘ 0 ; SECTOR 


(SP)+,R1 3:POP STACK INTO R1 
ae 3:POP STACK INTO RO 


-SBTTL JAM CURRENT CYLINDER ROUTINE 


;*THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER 

:*THIS 1S DONE BY GIVING A SEEK COMMAND THEN AN INIT 

;*WHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 
-* 


T*CALL I 
+ *JSR Re. QMAKECY 
+ eXC DESIRED VALUE OF CURRENT CYLINDER 


010546 MOV R5,-(SP) PUSH R5 ON STACK 
010037 “Bc OF JSR+4 
002014 SAVE PC OF JSR 
ZGETTING READY TO FILL DESIRED CYLINDER 
sFILL DESIRED CYLINDER REGISTER 
DS ZMAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL 
@ASEECOM,@RHCS1 ;FILL SEEK COMMAND 
ADMD , ARHMR SET DIAGNOSTIC MODE 
134376 #G0,@RHCS1 :G0 TO SEEK 
ore TIME FOR SEEK 


2620 PC ,@#CLDISK 
134414 001126 @RHCC , AA SBDDAT TA 
001126 R5 ,@#$BDDAT COMPARE CURRENT CYLINDER 
1$ ;BRANCH IF —, 
001124 R5 ,@#SGDDAT :GOOD VALUE OF RHCC 
001676 042270 @ARHCC,A#REGADR ;FAILING REGISTER ADDRESS 
30 CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
[REGISTER AFTER A SEEK AND AN INIT 


012605 MOV (SP)+,R5 ::POP STACK INTO RS 
000200 RO 


-SBTTL ECC GENERATION AND COMPARISON ROUTINE 
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3*THIS SUBROUTINE GENERATES AND TESTS ECC 
7 *CALL JSR PC,ECTEST 


=100000 


vvvV 

ee 

mmm 

— 
ONAULSWMR-O 


; 
1 
1 
1 
1 
1 
1 
1 


ECDATA: 0 ;DATA BIT FOR ECC 
71F ALL ONES THEN CURRENT BIT IS A ONE 
IF ZERO THEN CURRENT BIT IS A ZERO 


GECC1: 0 ee a ORDER ECC WORD TO BE GENERATED HERE 
GECC2: 0 of ORDER ECC WORD TO BE GENERATED HERE 


TSECCG: 0 ;1F =177777 GENERATE AND TEST ECC FOR THIS BIT 
;1F =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT 
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113713 : 38859. N=CODE WORD 
000000 : 0 


; TEMPORARY N CODE 
000000 : 0 POSITION REGISTER 
010041 : 4129. SHARD ERROR COUNT 
; TRUE COUNT IS 4128 BUT AS COMPARES ARE 
[DONE ONE STAGE LATER SO 4129 
000000 DATENV: 0 ;DATA ENVELOPE FOR TYPE OUT 
:MAX FOR WRITE IS 4096 
:MAX FOR READ IS 4128 
000000 ZCODE: 0 ;LEADING ZEROS ENVELOPE FOR TYPE OUT 
:THIS IS SHUT OFF WHEN POSITION COUNTER 
IN ENABLED 
MAX COUNT IS 38859 


; TEMPORARY HARD ERROR COUNT 


ECTEST: 
RO,-(SP) zzPUSH RO ON STACK 
:zPUSH R1 ON STACK 
: PUSH R2 ON STACK 
:7PUSH R3 ON STACK 
:zPUSH R4 ON STACK 
: PUSH RS ON STACK 
avGECC1, R1 sECC1 WORD 
@#GECC2,R2 zsECC2 WORD 
a#ECDATA :1S CURRENT BIT A ONE 
2$ :BRANCH IF CURRENT DATA D=0 


:*IF CARRY_IS NCT ZERO THEN D=1 
z*INVERT X32 TO GIVE RO 


R1,R3 
#*CPIE32,R3 
R3 

R3,RO 

3$ 


:*IF CARRY IS ZERO THEN D=0 
3*X32 BECOMES RO 

010103 : MOV R1,R3 

042703 177776 BIC #*CPIE32,R3 

010300 MOV R3,RO 

000241 : CLC 

006000 ROR RO 

045432 006000 ROR RO 
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005700 TST RO 
001462 BEQ 10$ ;BRANCH IF RO=0 
z* INVERT X2 


010203 MOV R2,R3 
052703 137777 BIS A*CPIE2,R3 
005103 OM R3 

010337 045340 

006237 045340 


aon 
NN 
—~ar 


>*INVERT X11 
010203 R2,R3 
177737 A lc se 


R 
045342 R3,a4P12 
045342 aAP12 


3* INVERT X21 


R1,R3 
173777 a cans 


045344 R3,a4P22 
045344 a4P22 


z*INVERT X23 


R1,R3 
176777 ne 


R 
045346 R3,a4P24 
045346 AP 24 


5 THAT RO FOR POSITION _1 
; P3 FOR POSITION 3 
P12 FOR POSITION 12 
P22 FOR POSITION 22 
P24 FOR POSITION 24 
7 *ARE KNOWN THE ROTATE WILL BE DONE AND 
>*THESE BITS JAMED IN 


R2 
R1 
045340 ‘ 
045342 a4P12,RO 
120020 See eee ee 


a i a i a i i a a i i a a a a a a se es Oe Be ee Be Bs AR ee 8 Be Ae ee es Os A PR Oe 


RO 
045344 a#P22 RO 
045346 aaP24 RO 
002400 #P1E22!PLE24 RI 


12$ 
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;*THE PROGRAM COMES HERE IF RO=0 
7*SO AFTER ROTATE RO GETS PUT INTO POSITION 1 


| 


WPIET, R2 
R1,a"GECC1 ;SAVE ECC! 
R2, AGE CC2 sSAVE ECC2 
@*TSECCG 71S HARDWARE TO BE CHECKED 
IF =1777777 TEST HARDWARE 
:I1F = 0 DO NOT TEST HARDWARE 
14$ ;BRANCH IF HARDWARE NOT TO BE CHECKED 


COON ME ORO A OR OR ORO OE 


: E 
032777 133300 BIT #SW8 ,aSWR 71S SWITCH 8 SET 
001005 15$ BRANCH IF SWB IS SET 
032777 133270 #SW6,aSWR 71S SWITCH 6 SET 
001401 15$ BRANCH IF Sw6 IS NOT i 
000421 14$ IF SWITCH 8 IS NOT SET AND 
7SWITCH 6 IS SET THEN 
[D0 NOT DO COMPARES 
010146 : R1,-(SP) ;GOOD PATTERN REGISTER 
#174000, (SP) 7GET ONLY PATTERN BITS 
(SP) +, @RHEC2 ; COMPARE PATTERN REGISTER 
BEQ 13$ ;BRANCH IF GOOD 
:*TO SAVE TIME 
J 


PC ,@#PUTREG SAVE REGISTERS 
35 tebe my REGISTER IN 11 BITS IN ERROR 


14$ ;BRANCH OUT 
133762 138: @4POSITI,@RHEC1 ; COMPARE POISTION REGISTER 
14$ BRANCH IF GOOD 


SAVE REGISTERS 
ERROR 35 POSITION REGISTER IN ERROR 
7’ DATA ENVLOP’* GIVES NUMBER OF CLOCK 
;PULSES FROM BEGINING OF COMMAND 
2 THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 


TIN A WRITE THERE ARE 10000 OCTAL CLOCKS 
:IN A READ THERE ARE 10040 OCTAL CLOCKS 


RERRRREREE 
WDBNAUSWN—O 


:* N-CODE ZEROS** GIVE THE NUMBER OF CLOCKS 
; GIVEN FOR THE LEADING ZEROS FIELD 
SMAX COUNT IS 113713 OCTAL 


**GOOD POSITION'’ GIVES NUMBER OF CLOCKS 
:GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA 
“MAX COUNT IS 10040 OR 10041 OCTAL 


045716 : 
045716 012605 MOV (SP)+,R5 7;POP STACK INTO R5 
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(SP)+,R4 :7POP STACK INTO R4 
(SP) +,R3 :zPOP STACK INTO R3 
(SP)+,R2 3; POP STACK INTO R2 
(SP)+,R1 :zPOP STACK INTO R1 
li ;7zPOP STACK INTO RO 
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023737 
001415 
032711 
001016 


004737 
104034 


052711 
042711 
004737 
000737 


052711 
042711 
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045326 
045326 
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3*THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE 
;*FOR ERROR as pera 


1$: 


6$: 


3$: 


5$: 


*CALL JSR, 
xP 


BNE 4$ 
:*TO SAVE TIME 
JSR 


ERROR 


’ 


ECORR 
zEXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE 


POSITION REG. WHEN CORRECTION IS COMPLETE 


RO, @4PCJSR sSAVE PC OF JSR + 4 

#4 ,@APCJSR SAVE PC OF JSR 

(RO)+,a@4ERPOS ;GET POSITION aaa WHEN CORRECTION IS COMPLETE 
R1,-(SP) :;PUSH R1 ON STA 

@FRHMR , 1 ;MAIMTENANCE REGISTER 

#DMD ,aR1 [SET DIAGNOSTIC MODE BIT 

@#ECDATA ECC DATA IS ZERO 

a4POSITI 31S SOFTWARE POSITION NON ZERO 

2$ BRANCH IF N-CODE S COMPLETE 

@4NCGUNT :DECREMENT N-CODE 

6$ ;BRANCH IF N-CODE IS NOT COMPLETE 

2$ ;BRANCH AS N-CODE IS COMPLETE 

a4ZCODE ; INCREMENT CLOCKS GIVEN FOR LEADING ZEROS 
3$ BRANCH AS N-CODE IS NOT COMPLETE 


:GO TO GIVE CLOCK gS TEST ECC 
aFPOSITI INCREMENT SOFTWARE POSITION 
@#ERPOS ,a#POSITI:HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR 
;BRANCH IF MORE CLOCKS TO BE GIVEN 
@AHAD TMP , a#POsiT1; — ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR 
T IS HAVE 4128 MORE CLOCKS BEEN GIVEN 


Ww 
wf 


5$ ‘BRANCH IF YES 
AZER,aR1 :CHECK ZERO DETECT BIT IN RHMR 
BRANCH IS ZER SET 
PC ,a#PUTREG SAVE REGISTERS 
34 ZERO DETECT BIT NOT 
[WHEN 21 BITS IN ECC 3 “BIT REGISTER IS 0 
AMCLK,@R1 :SET or 
AMCLK ,aR1 CLEAR CLO 
PC ,@MECTEST 7GO TO GENERATE AND TEST ECC 
1$ ; CONT INUE 


z*THIS EXTRA CLOCK IS TO BRING ECH HIGH 
;*AFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL 


BIS 
BIC 


AMCLK ,@R1 SET CLOCK 
#MCLK,@R1 :CLEAR CLOCK 


Q 0196 


SEQ 0197 
SE 
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046104 4$: 
046104 012601 MOV (SP)+,R1 3; POP STACK INTO R1 
046106 000200 RTS RO 


z*THIS SUBROUTINE GENERATES A. ECC FOR WHAT IS ON DISK AND INSERTS THEM 
7*0N LOCATIONS *DISK+1000°° *DISK+1002"" 


FILLEC: 
MOV RO,-(SP) B: RO ON STACK 
Be R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
RS ON STACK 
POSITION 
GECC1 


7 CLEAR 
:POINTER TO DATA FOR ECC GENERATION 
; COUNTER FOR NUMBER OF DATA WORDS 
#16. ,R3 : COUNTER FOR NUMBER OF BITS PER WORD 
(R1)+4+,R4 ZDATA IN R4 
RG :GET ONE DATA BIT IN CARRY 
11$ BRANCH IF DATA wt IS ZERO 
177777 045312 #-1, Q4ECDATA zsECC DATA BIT IS A ONE 
12$ “BRANCH TO GENERATE ECC 
045312 : @#ECDATA zECC DATA BIT IS A ZERO 
045350 : PC, ,a#ECTEST 7GO TO GENERATE ECC 
R3 :DECREMENT BIT COUNT 
10$ ;BRANCH IF 16 BITS NOT DONE 
R2 4 Fe te WORD COUNT 
9$ “BRANCH IF 256 WORDS NOT DONE 
045314 052422 @4GECC1, @#D I SK+<256.*2>; INSERT ECC1 ON DISK 
045316 052424 @AGECC2, ,@aD1SK+<257.. at INSERT ECC2 ON DISK 
(SP)+, R5 TACK INTO R5 
(SP)+,R4 
(SP) +_.R3 
(SP)+,R2 
(SP)+,R1 f- 
het ee 7zPOP STACK INTO RO 


-SBTTL RH BASE ADDRESS CHANGE ROUTINE 


THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


SEQ 0198 
SEQ 0197 
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044252 
001640 
046340 
055176 
001630 
000026 
047230 
001640 


000000 
001640 


046470 
001626 
046542 
001626 
046654 
001640 
046724 
001626 
046774 
047040 
047052 
047130 
000200 
047220 
004240 
047236 


046244 


MACY11 30A(1052) 
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BASECH: 
TYP 
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,65$ 
64$ 
@FRHCS1 = (SP) 


,67$ 
66$ 
PC ,@#$TKINT 


. ,@ARHCS1 
@0(SP) 
@ARHCS1 ,aSP 
@SP, (RO)+ 

R1 

2s 

,69$ 

68$ 
@ARPVEC , = (SP) 


.71$ 
70$ 


(SP) +, a#RPVEC 
3$ 


2 


72$ 
@ARHCS1,-( SP) 
.75$ 
74$ 
@ARPVEC ,~ (SP) 


#RA,-(SP) 
,85$ 

84$ 
@A4BEGIN 
,65$ 

64$ 
(SP)+,(SP)+ 
@ABASE CH 


SEQ 0198 


TYPE ASCIZ STRING 
73GET OVER THE ASCIZ 
GET READY TC TYPE OLD BASE 


zsTYPE ASCIZ wo 
7;GET OVER THE ASCIZ 
INITIALIZE THE TTY KEYBOARD 


GET STARTING ADDRESS OF REGISTERS 
[NUMBER OF REGISTERS 
2 SET UP - CHECK NEW ADDRESS 


x 
ZACCESS THE NEW ADDRESS 
;GET THE ADDRESS OFFSET 
SAND PLUG IT IN 
;DONE ALL OF THEM YET? 
:NOT YET, SO DO MORE 


sTYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 
;GET READY TO TYPE OLD VECTOR ADDRESS 


3-TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


;SETUP VECTOR ADDRESS 
7 TYPE ASCIZ STRING 
:zGET OVER THE ASCIZ 


zsTYPE ASCIZ STRING 
7:GET OVER THE ASCIZ 


23 TYPE ASCIZ STRING 


3;GET OVER THE ASCIZ 


zz TYPE ASCIZ STRING 
a hag OVER THE ASCIZ 
>OK, NOW START OVER WITH NEW ADDRESS 


ad ASCIZ STRING 
T OVER THE ASCIZ 

SRESTORE THE STACK 

sAND DO IT AGAIN. 
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*THIS IS A LITTLE ROUTINE THAT TESTS NED BIT 11 IN RHCS2 
3:*THIS LOOPS HERE FOR EVER 
:*TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 
;*WITH WHAT IS REALY THERE 
ERUNIT: 0 ;UNIT UNDER MANUAL TEST 
042620 ERSTART:JSR PC ,a@4CLDISK SET GENERAL REG. 
047314 MOV @FERUNIT ,AR2 ;SELECT UNIT 
1$: aR4 ZTEST RHER1 
010000 ; 


“NED NOT SET 
2$: ‘NED SET 
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H BASE ADDRESS CHANGE ROUTINE 


-SBTTL DISK S:MULATION 
7*IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING 
> *WCLY=WITH CYLINDER TO BE ON DISK 
;*WSECTR=WITH SECTOR AND TRACK TO BE ON DISK 
:*WKEY1= WITH KEY1 TC BE ON DISK 
:*WKEY2= WITH KEY2 TO BE ON DISK 
;*FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK 
; * THE COMMAND THEN IS JSR PC, COMWHD 


IN A WRITE DATA COMMAND FILL THE FOLLOWING 
*CYL=WITH CYLINDER TO BE FOUND ON DISK 

*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
*KEY1= WITH KEY1 TO BE FOUND ON DISK 

*KEY2= WITH KEY2 TO BE FOUND ON DISK 

*X= 1 MUST BE ONE 

*NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN 
*THE COMMAND THEN IS JSR PC,COMHD 


+ 


>*IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING 
7*CYL= WITH CYLINDER TO BE FOUND ON DISK 

;*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
;*KEY1= WITH KEY1 TO BE FOUND ON DISK 

7 *KEY2=WITH KEY2 TO BE FOUND ON DISK 

;*DAWORD= WITH a OF WORDS TO BE FOUND ON DISK 


eS . 
"ne ene eeHR HR ES 


*;X=0 MUST BE ZERO 
*THE COMMAND THEN IS JSR PC,COMHD 


s 


-* 


:*IN A READ DATA COMMAND FILL THE FOLLOWING 


*CYL= WITH CYLINDER TO BE FOUND ON DISK 
*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
*KEY1= WITH KEY1 TO BE FOUND ON DISK 


;*KEY2=WITH KEY2 TO BE FOUND ON DISK 

;*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK 
;*;X=0 MUST BE ZERO 

3 *THE COMMAND THEN IS JSR PC,COMHD 

ej 


SEQ 0201 
SEQ 


0200 
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;*WRITE DATA COMMAND 
;*OR READ COMMAND I.E DATA ONLY OR HEADER AND DATA 


3**THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 


ee 'GO’ BIT” DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 
-xe' 


3**I1T THEN CALL THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER 
;**SUBROUTINES. THESE ARE: 


-*® 
6 
-k&e 
. 
"ke 
a 


Behe REDATA 


0 

002014 OMHD : (SP) ,a#PCJSR sSAVE PC OF JSR + 4 

000004 002014 sSAVE PC OF JSR 
7zPUSH RO ON STACK 
7 7PUSH R1 ON STACK 
7 PUSH R2 ON STACK 
:7PUSH R3 ON STACK 
72PUSH R4 ON STACK 
010546 7 PUSH R5 ON STACK 


012777 000001 132260 :SET DIAGNOSTIC MODE 
000004 
000004 : NDEX 
052777 000001 132216 #GO,@RHCS1 SISSUE 'GO' BIT & STALL ‘TILL ‘RUN’ 


7 (FUNCTION CODE IS ISSUED BY THE TEST) 
012737 000113 047342 RUNWAT: #75. ,@MRUNCTR LOAD STALL COUNT = APPROX. 450US 


:FOR 11/50 CPU WITH CORE MEMORY 
005337 047342 1$: @4RUNCTR [COUNT DOWN ONE 
001375 1$ CONTINUE UNTIL = 0 


013746 047506 SECOTR, -(SP) ;GET DESIRED SECTOR/TRACK 
042716 177740 ;MAKE ONL Y . CTOR 

047456 - K ;SAVE SECT 

053552 R1,@4SEARCH > ISSUE SECTOR CLOCKS < 





H 
CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27=JUL-78 12:41 


CZRJGC.P11 26-JUL-78 10:10 DISK SIMULATION 


TRK: 


047626 R1. @ARDHEAD 


16 
PAGE 204 


;GOING TO MOVE NOPS 
;NOP INTO SSYN 
;NOP INTO HEDGAP 
;NOP INTO HEDSYN 


ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 


00024C 


000240 


HEDSYN: 


005737 002006 a4ERFLGS 
OUT 
047514 
047536 
047540 005737 047620 


047544 001011 


;CYLINDER ADDRESS 

;SECTOR/TRACK ADDRESS 
KEY1 WORD 

:KEV2 WORD 

ix =1 WRITE COMMAND 
x=0 READ COMMAND 


71F “ERROR 2°’ INSERTED BY RDHEAD 
; SUBROUTINE THEN THE FIRST SYNC. 
71S NOT DETECTED. NO BAD DATA 
TIS GIVEN BECAUSE SYNC=144000 

> CANNOT BE READ. WORD NO 

71S ‘‘l’* BECAUSE THIS IS THE FIRST 
[WORD TESTED 


7IF “ERROR 3°* INSERTED BY 
;RDHEAD ay ee § aes THE 
HEADER GAP 0°S WERE NOT 
4 RIGHT. 

“WORD NO’ CONTAINS, SAY 
308). Py IT IS THE THIRD 
[WORD OF A 5 WORD HEADER 
= GAP THAT ON’ 


IS WRONG 
"BAD DATA’* CONTAINS WHAT IS 
[GOING ON THE DISK 


71F “ERROR 3°’ INSERTED BY RDHEAD 
; SUBROUTINE THEN THE HEADER SYNC. 
;GENERATED BY DCL IS WRONG 

;OR THE LAST BYTE 

OF THE HEADER GAP 0° a IS WRONG 
IN EITHER CASE WORD 

:RIGHT BYTE IS HEADER "0 

;LEFT BYTE IS SYNC 

:"BAD DATA’’ HAS WHAT IS GOING 
ON DISK 


;ARE ANY ERRORS DETECTED 
zIF YES, EXIT 

71S IT A DATA WRITE ? 

:NO...THEN DO A DATA READ 

:IS THIS FORCED HEADER ERROR COMMAND 
71F YES NOSYNC=-1 THEN WRITE OR READ 
[IS SHUT OFF SO BRANCH OUT 

71F NOSYNC=0 THEN CONTINUE 

EXIT IF SET 
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004137 051072 JSR R1,@4WMDATA sWRITE DATA < 
000000 NOWORD: .WORD 0 zNO OF WORDS TO BE WRITTEN 
Y: -WORD 0O $ 
000404 BR OuT DEM] 7 -s-------------------------- > 


004137 054026 DAREAD: JSR R1,@A#REDATA READ DATA < 
DAWORD: .WORD 0 sNO OF WORDS TO BE READ 
000000 . WOR 0 


OUT: 


012605 (SP) +,R5 7zPOP STACK INTO R5 
(SP) +,R4 :zPOP STACK INTO R4& 
(SP)+,R3 ;3POP STACK INTO R3 
(SP)+,R2 3sPOP STACK INTO R2 
(SP)+,R1 7sPOP STACK INTO R1 
2 gems 3zPOP STACK INTO RO 


sEXIT ROUTINE 
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:*THE DISK SECTOR IS DCVIDED AS FOLLOWS 
3*19 WORDS OF 0, ONE WORD 144000 
z*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


RSYNC: 


:*5 WORDS OF O ONE WORD 144000 
;* THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE 
;*THESE ARE DCL GENERATED 


;*THERE ARE 256 WORDS OF DATA 
;* THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
:*15 WORDS OF O FOR DATA GAP AND TOLERANCE GAP 
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;*READ DISK HEADER 


;FORCED HEADER ERROR = 
ZNORMAL = 0 

;ERROR TYPE NO. 
ERROR WORD NO. 


012137 : STORE CYLINDER ADDRESS 
> STORE oi AND TRACK ADDRESS 


;PUS STACK 
:RO CONTAINS MAINTANENCE REG. 
:R5 IS A COUNTER FOR WORDS 
SDIAG. MODE 
:SET SECTOR FOR FIRST WORD 
CLK,a@RO ;SET CLOCK FOR FIRST WORD 
#MSTCK!MCLK,@RO :RESET SECTOR AND CLOCK 
2$ ;BRANCH OVER GIVING SECTOR FOR FIRST TIME 
#MSTCK'MCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 
#MSTCK'MCLK,@RO ;RESET SECTOR. CLOCK 
7 R2 :R2 IS A COUNTER FOR BYTES 
:SET CLOCK 
RESET CLOCK 
:BYTE COUNTER 
: BRANCH IF BYTE NOT COMPLETE 
D COUNTER 


“BRANCH IF WORD NOT COMPLETE 
zNO Petes OF ZEROS 


READ 
:GO TO READ 
; COUNT 
4$ 
050414 SYNC. WORD 
PC, @#READ 


#DTSY, aRO SYNC. BYTE DETECTED? 

5$ BRANCH IF SYNC DETECTED 
047624 #1, @#ERWORD _ OR WORD NO 
001124 @ARSYNC ,AASGDDAT YNC WORD 
047516 + erates ; INSERT "ERROR 2°" IN SSYN 


BRANCH OU 
047610 050414 : @ARCYL, @#WORD 2 SETUP CYLINDER 
050420 PC. @#READ ;READ 
013737 047612 050414 ARSE TR, a#WORD SETUP SECTOR/ TRACK 


SEQ 0206 
SEQ 0205 
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004737 PC ,@#READ ;READ 
050414 @ARKEY~ SETUP KEY1 
a4R ; READ 


E : 
050414 SETUP KEY2 
@FREAD sREAD 
050414 i CRC 


AD 
31S THIS A se TIMING ERROR 
BRANCH OUT YES 

:IS THIS A READ OR WRITE COMMAND 


ara FOR HEADER GAP 
. NO OF WORDS OF ZEROS 
047624 : ZERROR WORD NO SET 
FOR HEADER GAP 
7 TEST WRITTEN WORD 
BRANCH IF GOOD THAT IS 0 
;WORD NO IN ERROR 


: GOOD ry SHOULD BE 0 
001126 @4WWORD , S$BDDAT ;BAD DAT 
047520 #104003 , @#HEDGAP . Dees PZ GOES IN HEDGAP 


1 ;BRANCH OU 
——— SAVE HEADER GAP 


6$ 
@AWRITE ;WRITE HEADER (DATA) GAP SYNC 


PC, 
@ARSYNC , @AWWORD 
10$ 


050226 @4NOS YNC 71S THIS FORCED HEADER ERROR COMMAND 
zIF YES NOSYNC=-1 THEN WRITE OR READ 
71S SHUT OFF SO BRANCH OUT 

31F NO NOSYNC=0 THEN CONTINUE 
penser 14$ ;BRANCH IF TRUE ERROR 


a4WWORD : 
10$ ;BRANCH IF GOOD 
tyme 31T SHOULD BE ZERO 


BR BRANCH TO TYPE ERROR 
14$: @ARSYNC ,@ASGDDAT :GOOD DATA 
15$: @*WWORD , AASBDDAT :;BAD DATA 

46, a4 ERWORD 
047522 f 04003 ,a#HEDSYN 


$ :BRANCH OUT 
10$: a ae :SAVE DATA SYNC. 
:*READ COMMAND START FROM HERE 
11$: MOV 45, R2 
12$: 
;READ HEADER GAP 
1S 5 HEADER GAP ZEROS COMPLETE 
: IF NOT BRANCH 
SYNC WORD 
[READ HEADER (DATA) SYNC) 
:1F NOT ERROR COMMAND BRANCH 


SSYNC. DETECTED 
050354 13$ 31F ZERO BRANCH OUT 


050414 
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16$: 
17$: 


13$: 


17$ IF NOT ZERO BRANCH TO ERROR 
le aRO ; SYNC. DETECTED? 


#6, @#ERWORD ROR 
@ARSYNC , A#SGDDAT: : SYNC WORD 
#104002 ,a#HEDSYN 


Spe : POP STACK INTO R1 
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010246 


000002 
000001 
050414 
000020 
000007 


000012 
045320 


000020 
177777 
045312 
000001 
050414 
000021 
045320 
045332 
045350 
000002 
045320 
000020 
177777 
045312 
000001 
050414 
000021 
045320 


MACY11 ply # 
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LATION SE 


Q 0208 


3*READ ONE WORD IN *WORD'' 


7ZPUSH R2 ON STACK 

WORD og 

sSET DIAG. MODE 

sCHECKING IF THERE IS A ONE 
F NO ONE CH 


$ | 
AMRD,  aRO :SET BIT 4 IF DATA HAS ONE 
a7, R2 :BYTE COUNTER 

#MSTCKIMCLK, aR ;SET CLOCK,DATA IF ANY, SECTOR 
— :IS NCH IF NO GENERATE AND TEST ECC 


;BRAN 
#MRD ,@RO 1S DATA BIT A ONE 
5$ [BRANCH IF DATA BIT IS 0 
o -@4ECDATA ECC — BIT IS A ONE 


@VECDATA TECC DATA BIT IS A 0 
#DMD, -(SP) ;KEEP ONLY DIAG. MODE 
D CHECKING IF THERE IS A ONE 
;1F NO ONE 


BRANCH 
KEEP DATA AND DIAG. MODE 
;PUT_IN DATA,RESET CLOCK, SECTOR 
; TO BE GENERATED FOR THIS BIT 


BRANCH IF NO 
NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
io TO GENERATE AND TEST ECC 


ET CLOCK 
:1S THIS BIT TO GENERATE ECC 
CH IF a 


[BRAN 

71S DATA BIT A ONE 

$ BRANCH IF DATA BIT IS = 0 
anaes ECC — BIT IS A ONE 


@4ECDATA ECC DATA BIT IS = 0 
#DMD, =-(SP) ;KEEP DIAG. MODE 
D ZCHECKING IF THERE IS A ONE 
4$ BRANCH IF NO ONE 
#MRD'DMD,(SP) ;KEEP DIAG. MODE AND DAT 
(SP)+, a@RO SET DATA, DIAG. MODE, CLEAR CLOCK 
@4TSECCG [1S THIS BIT TO GENERATE ECC 
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9$ 
R4DATENV 
+ geo TEST 


1 
PAGE 211 SEQ 0210 
SEQ 0209 


BRANCH IF NO 

NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
;GO TO GENERATE AND TEST ECC 

BYTE COUNTER 

BRANCH IF ONE BYTE NOT COMPLETE 

WORD COUNTER 

:BRANCH IF ONE WORD NOT COMPLETE 

33POP STACK INTO R2 
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177777 
045312 


000001 
045320 
045332 
045350 
000002 
000040 
177777 


045312 


000001 
045320 


045332 
045350 
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RO,-(SP) 
R2,-(SP) 
R3,-(SP) 
R5,-(SP) 
#2,R5 


$ 
#-1 ,@MECDATA 
R3 
3$ 
@#ECDATA 
R3 
#DMD , @RO 
a4TSECCG 
4$ 
@4DATENV 
PC ,@M#ECTEST 
#MCLK ,aRO 
AMWR , ARO 


5$ 
#-1 ,@MECDATA 


R3 

6$ 

@4ECDATA 

R3 

ADMD,  a@RO 
a4TSECCG 

7$ 


@4DATENV 
Saoirse Sree 


D 1 
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SEQ 0210 


;*WRITE ONE WORD WHICH COMES BACK IN ‘WWORD'' 


: ¢PUSH RO ON STACK 


3cPU 
33;PUSH R5 ON STACK 
WORD COUNTER 
2 SET DIAG. MODE 
;RO HAS RHMR ADDRESS IN IT 
:BYTE COUNTER 


#7 ,R2 
#MSTCK!MCLK!DMD,@RO;SET SECTOR AND CLOCK 
AMWR , BRO 


; CHECK WRITE BIT IN MAINT. REG. 
BRANCH IF ZERO 

ECC DATA BIT IS A ONE 

7SET CARRY 

SMOVE 1 FORWARD 


ECC DATA BIT IS = 0 
ang CARRY 


MOVE 0 F D 
CLEAR SECTOR AND C 
21S ny pe GENERATE ECC 


H IF 
:NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
[GO TO GENERATE AND TEST ECC 
SET CLOCK_IN RHMR 
CHECK WRITE BIT IN RHMR 
BRANCH IF ZERO 
ECC DATA BIT IS A ONE 
7SET CARRY 
SMOVE 1 FOR WWORD 
zECC DATA BIT IS ZERO 
CLEAR CARRY 
MOVE 0 FOR WWORD 
CLEAR CLOCK 
31S THIS BIT TO GENERATE ECC 
: BRANCH 
NUMBER OF CLOCKS eek gmc ENVELOPE 


:GO TO GENERATE AND T 
;COUNT FOR BYTE END 
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IF NOT BYTE END BRANCH 
;COUNT FOR WORD END 
7 1F NOT WORD END BRANCH 


STORE THE WORD 


051052 (SP)+,R5 3;POP STACK INTO R5 
051054 (SP) +,R3 3zPOP STACK INTO R3 
051056 (SP)+,R2 3zPOP STACK INTO R2 
051060 (SP)+,RO 33POP STACK INTO RO 
051062 PC 
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;*WRITE DATA - ve DATA INTO ‘DISK'' AREA FROM *WWORD*’ 
3*ONE WORD AT A TIME 


000000 
000400 
000000 
011137 (R1),@4COUNTD ;STORE yo WORDS TO BE WRITTEN 


012102 (R1)+,R2 SAME IN 
012137 7 (R1)+,@4COMPA ;COMPARE OR NOT 


RO,-(SP) ;zPUSH RO ON STACK 
: PUSH R1 ON STACK 
7ZPUSH R2 ON STACK 
3: PUSH R3 ON STACK 

R4,-(SP) :ZPUSH R4& ON STACK 


000016 #14. ,R1 NO. OF TOLERANCE GAP WORDS 
052430 #TOLGAP ,R3 START OF TOLERANCE GAP TABLE 
177777 : #-1,(R3)+ MAKE IT 177777 

R1 71S 14 COMPLETED 

1$ IF NO BRANCH 
001660 @FRHMR, RO [RO CONTAINS MAINTANENCE REG. 
051066 @4F ORMAT , ~ (SP) 


051064 @4COUNTD., (SP) 

051070 y+ ame NO. OF ZERO WORDS TO BE WRITTEN 
+, 

002024 a4TSECC 2S gh TEST ? 


7$ 
177777 #~-1 ,AATSECCG THESE BITS ARE TO GENERATE ECC 
2 7$: #DISK,R3 ADDRESS THE * DISK*' AREA 
WRITE INTO ‘WWOR 


woooovwvnovvd 
ed ce ed ed ce) eed eed 
el el ee ee ed ed ed 
NOURWN—O 


D** 
STORE ON SIMULATED DISK 
[COUNT DOWN 
= CONT INUE IF ALL ——e 5 WRITTEN 


IF NONE 
WRITE ZEROS INTO * 
zSTORE INTO ‘DISK’ 


NO MORE ECC TO BE GENERATED 
rine ECC1 AND ECC2 ON Sama sates DISK 


051254 ;STORE ON WEEC1 AND WEEC 
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001372 
004737 


zWRITE DATA GAP INTO ‘WWORD'' 
sSTORE INTO ‘DISK"' 


sWRITE TOLERANCE GAP ZEROS 
D,(R3)+  ;STORE INTO ‘DISK’ 


(SP)+,R4 33POP STACK INTO R4 
(SP)+,R3 3zPOP STACK INTO R3 
(SP)+,R2 3:POP STACK INTO R2 
(SP)+,R1 33POP STACK INTO R1 
051320 012600 (SP)+,RO 3;POP STACK INTO RO 


051322 R1 
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7 *WRITE HEADER AND DATA 


-* 
. 


H 1 
12:41 PAGE 216 SEQ 0215 


_ SEQ 0214 


* 
z*THIS IS THE SIMULATED DISK 
;*ONLY ONE SECTOR OF SPACE IS ALLOWED 


051324 


‘oO 


Ww 
Oo 
. 


1 
1 
4 
1 
5 
1 
2 
1 
1 
1 
1 


052430 


* 
. 


GAP 38 BYTES OF 0 
GAP 1 BYTE OF 0 ONE SYNC BYTE 
= CYL, SECTOR/TRACK, KEY1, KEY2 


GAP iy BYTES OF 0 
“HEADER GAP 1 BYTE OF O ONE SYNC. BYTE 
;USED IN’ Sito i SILO TABLE 


sECC2 
;DATA GAP 2 BYTES OF 0 
TOLERANCE GAP 28 BYTES OF 0 
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052556 
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052564 
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052600 
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010546 
012777 
052777 
042777 
052777 
012737 


005337 
001375 


013746 
2716 


053552 


000240 
052654 
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002014 


127136 


127074 
052464 
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I 
12:41 


;*WRITE HEADER AND DATA 


1 
PAGE 217 


SEQ 0216 
SEQ 0215 


3**THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 
see1T whi DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 


pee *Go' 


:**IT THEN CALL THREE OTHER SUBROUTINES, 
;**SUBROUTINES. THESE ARE: 


SEARCH 
WRHE AD 
WRDATA 


RNCTR1: . 
COMWHD : 


RNWAT1: 
1$: 


0 

(SP) ,a#PCJSR 
#4 ,aAPCJSR 
RO,-(SP) 
R1,~-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 

RE ,-(SP) 


#GO, aRHcSI 
#75. ,@ARNCTR1 
@ARNCTR1 

1$ 
@AWSECTR,-(SP) 
#177740, (SP) 
(SP) +, @#WTRK 
2 a 


#+NOP ,R1 
R1,a#SEGPER 


WHICH IN TURN CALL OTHER 


> "RUN' LINE STALL es 
SAVE PC OF JSR + 
sSAVE PC OF JSR 
+ PUSH RO ON STACK 
:zPUSH R1 ON STACK 
7zPUSH R2 ON STACK 
7ZPUSH R3 ON STACK 
7zPUSH R4 ON STACK 
;7PUSH RS ON STACK 


SET DIAGNOSTIC MODE 
SET DIAGNOSTIC INDEX 
CLEAR IT 

:SET "GO" BIT & STALL "TILL "RUN' 


LOAD STALL COUNTER = APPROX. 450US 
FOR 11/50 CPU WITH CORE MEMORY 
COUNT DOWN 1 TIME 

;CONTINUE UNTIL 0 


:GET oe SECTOR/TRACK 

MAKE ONLY SECTOR 

SAVE SECTOR 

ISSUE SECTOR CLOCKS < 
CTOR NO. 


:GOING TO MOVE NOPS 
:NOP INTO SEGAP 
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052612 010137 052656 R1,Q4F SYNER ;NOP INTP FSYNER 
52660 ;NOP INTO ERHEAD 


010137 052666 R1, @#HDESYN 


004137 052736 R1,@4WRHEAD sWRITE THE HEADER < 
000000 : ; CYLINDER 
000000 : = SECTOR AND TRACK 
13 : EY1 
: sKEY 
052652 000000 3 ;GOOD CRC 
7 *DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


052654 : NOP 7IF "ERROR 6°" INSERTED BY 
s;WRHEAD SUBROUTINE THEN 
SECTOR GAP GOING ON DISK 
:1S NOT RIGHT. 


;WORD NO. CONTAINS WHICH 

;WORD IS WRONG, THAT IS 

[FIRST OF TENTH OR WHAT EVER NO. 
;BAD WORD IS GOING ON DISK 


052656 FSYNER: ;IF "ERROR 6'* INSERTED BY 
z;WRHEAD SUBROUTINE THEN 
THE LAST 0 BYTE OF SECTOR 
:GAP, OR FIRST SYNC. BYTE 
TAFTER SECTOR GAP IS IN 


7 ERROR. 


s;WORD NO. CONTAINS 20 

;RIGHT BYTE IS SECTOR GAP 
LEFT BYTE IS SYNC. BYTE 

[BAD WORD IS WHAT IS GOING ON 


ERHEAD : 71F "ERROR 6°' INSERTED BY 


;WRHEAD SUBROUTINE THEN 
HEADER GOING ON DISK 
;1S WRONG 


CYLINDER NO 
ae 


nnunu 


KEY2 
WHAT IS GOING ON 


ERCRC: NOP 
IF ‘ERROR 6°’ INSERTED BY 
sWRHEAD SUBROUTINE THEN CRC WRITTEN 
70N DISK IS IN ERROR, 





C2 
Ci 


CZRJGCO,RPO4/5/6 DSKLS mt 


CZRJGC.P11 


052670 
052674 


052676 


052720 
052722 
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005737 002006 
001004 


051072 


K 
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ERHDGP: NOP 


HDESYN: NOP 


@4ERFLGS 
FOUT 


pees 
0 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


PC 


1 
PAGE 219 


SEQ 0218 
SEQ 0217 


:GOOD DATA IS WHAT SHOULD BE ON DISK 
[BAD DATA IS WHAT IS GOING ON DISK 
WORD NO IS 5. 


71F “ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE THEN HEADER 
GAP GOING ON DISK IS WRONG. 


;WORD NO. GIVES wre be, OF 
; THE HEADER GAP WORDS 
SARE WRONG. FOR EXAMPLE: 


:WORD NO 1 = oh iPS! HEADER 

“BAD WORD IS WHAT IS GOING ON DISK 
:IF “ERROR 6'' INSERTED BY 

“WRHEAD SUBROUTINE THEN LAST 


HEADER GAP BYTE OR HEADER 
SYNC BYTE GOING ON DISK IS WRONG. 


;WORD NO = 5 
;BAD DATA IS WHAT IS GOING 
3;0N DISK, RIGHT BYTE IS HEADER 


-GAP 0 BYTE, LEFT BYTE IS HEADER 
;GAP SYNC. 


zARE ANY ERRORS DETECTED 
cIF YES EXIT 


;WRITE THE DATA < 
[FORMAT COMMAND NO. OF DATA 


+ POP STACK INTO R5 


3zPOP STACK INTO RO 
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;*WRITE HEADER 


MAINT.REG. 
SIMULATED DISK 
E COUNT 


052724 


052724 : (R1)+,@4SCYL 
(R1)+,@#SSECTR 
(R1)+,@M#SKEY1 
(R1)+,@A#SKEY2 
(R1)+, a@#SCRC 
R1,-(SP) 33PUSH R1 ON STACK 

SIMULATED DISK INDICATOR 

:RO NOW HAS MAINT. ae ADDR. 

;SET DIAG. MODE IN R 

[WORD COUNTER 

CK ,@RO ;SET SECTOR FOR FIRST BYTE 

#MSTCK'MCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 

AMWR , ARO ;CHECK WRITE BiT IN MAINT. REG. 


SET CARRY 
MOVE ONE FORWARD 


CLEAR CARRY 

sMOVE ZERO FORWARD 

CLEAR CLOCK, SECTOR 

BYTE COUNTER 

SET CLOCK 

; CHECK we ey IN MAINT.REG. 


:SET CARRY 
MOVE ONE FORWARD 


SET DIAG. MODE AGAIN IN RHMR 


0531 
053102 ; CONT INUE 
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010321 R3,(R1;+ 
005703 R3 

001414 7$ 

012737 000001 047624 #1, @#ERWORD 
005937 001124 ax$GDDAT 

010337 001126 R3, a#SBDDAT 
012737 104006 052654 #104006, a#SEGPER 
000137 053544 ari7$ : 


012702 7$: 18. ,R2 ;COUNT NO. OF SECTOR GAP 
047624 : COUNT TO aby ERROR WORD 
IT ZWRITE SECTOR GAP 
ZSTORE SECTOR GAP WORD 


71F NOT GET ERROR WORD NO. 
:GOOD WORD 


001126 @AWWORD , @4SBDDAT : BAD WORD 
052654 #104006, @#SEGPER; STORE "ERROR 6°’ IN SEGPER 
17$ ;BRANCH OUT 


é wee ee eee eee ee eee ee eee DD 


053214 05302 : R2 sHAVE ra ty OF ZEROS BEEN WRITTEN ? 
053216 10$ IF NOT DO SO 


3*AT THIS POINT THE SECTOR FOUND FLOP SHOULD 
3*BE HIGH. SO THAT THE HEADER SYNC BYTE CAN BE GIVEN 


z*HOWEVER IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
3*1S ABORTED - HEADER SYNC BYTE IS NOT GIVEN 


053220 @4TESDTE iS THIS A_DRIVE TIMING ERROR 
CH OUT IF YES 


PC ,@#wRITE WRITE ONE SECTOR GAP 0 BYTE 
SAND ONE SYNC. BYTE = 230 
@*WWORD , (R1) sSAVE 0 BYTE AND SYNC BYTE 
@ARSYNC,(R1)* [IF SYNC. BYTE RIGHT 
12 7IF YES BRANCH 
047624 @#ERWORD ;IF NOT GET READY FOR ERROR 
001124 at ;GOOD WORD 


@4SBDDAT_  ;BAD WORD 
052656 #104006, asF SYNER: Fa “ERROR 6° IN FSYNER 


- were - - - = SD 


FOUR HEADER WORDS 
SPOINTER FOR HEADER TABLE 
ERROR WORD NO SET 
WRITE 4 HEADER WORDS 
@AWWORD , (R1) STORE WRITTEN WORD 
(R3)+,(R1)+ 71S IT RIGHT? 
14$ z1F GOOD CONTINUE 
31F NOT GET READY FOR PRINT 
R2, @#ERWORD WORD NO 


~(R3),aA#$GDDAT GOOD DATA 
-(R1) a#$BDDAT BAD DAT. 
053342 #104006, a#ERHEAD: INSERT "ERROR 6" 
053350 000475 17$ BRANCH 
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053352 005302 148: R zARE 4 4 -_~ WORDS DONE? 
BNE 1 ; O THEM 


050652 

050650 

052652 (R1)+, @A#GCRC 
20$ 


: CH IF GOOD 
001126 -(R1) ,@#SBDDATA Bon CRC WRITTEN 
052652 CRC 
000005 


053354 


RROR WORD NO 
: INSERT ERROR 6 


P wee eS Se He RS Se SS SS > 


NO OF HEADER GAP 
ERROR WORD NO SET 
ee HEADER GAP 


-(R1) ,@#$BDDAT ;BAD DAT. 
#104006 , a#ERHDGP: STORE BRROR 6" 


$ SBRANCH QUT ------------------------> 


ARE 5 HEADER GAP ZEROS DONE 
15$ 7 1F NOT BRANCH 

PC ,@AWRITE 
@4WWORD , (R1) 

@ARSYNC , (R1) + 

17$ 


#5 , @AERWORD 

-(R1) ,@#$SBDDAT 

@A#RSYNC ,@#SGDDAT 
012737 #104006 ,@#HDESYN 


053544 
053544 012601 (SP)+,R1 3z:POP STACK INTO R1 


053546 000201 R1 
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000000 
012137 
010046 


052710 
012710 


053550 
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3*SEARCH SECTOR 


RO=RHMR ADDRESS 
R1=PASSED ARGUMENT (SECTOR SEARCHED FOR) 
R2=CLOCK COUNT (PER BYTE) 
R3=SECTOR COUNTER FROM R1 
; R5=BYTES PER WORD COUNT 
;*BEBORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET 
*SECTOR PULSE IN CASE IT IS SET 
7*AT BEGINNING OF EACH SECTOR ONE SECTOR CLOCK HAS TO RISE 
[*BEFORE CLOCK THEN EVERY EIGHT CLOCKS ONE SECTOR CLOCK IS 
; IDENTICAL WITH CLOCK 
3 *NUMBERING THE SECTOR CLOCKS AS FOLLOWS 
:*THE SECTOR CLOCK UNDER INDEX - 0 
:*THE NEXT = 1 
zeTHe NEXT - 2 
** * 
;*THEN THE LAST SECTOR CLOCK IN ONE ee HAS NUMBER - 608 
3*THE NEXT SECTOR THEN HAS 608 SECTOR CLOCKS 
eTMe pg Ms Jigs THEN HAS ANOTHER 608 SECTOR CLOCKS 
** 


SECTR: 0 SECTOR SEARCHED FOR 
SEARCH: MOV (R1)+, @ASECTR 2 SAVE SECTOR — FOR 
MOV 0,-(SP) 0 ON STACK 


#MSTCK, aRO ZCLEAR SECTOR CLOCK 
;THE ABOVE TWO gems ARE GIVEN FOR 


st 
AMINX'MSTCK,@RO ;SET X AND SECTOR CLOCK 
#DMD,  aRO TRESET INDEX AND SECTOR CLOCK 





aon 
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053636 005703 TST R3 31F SECTOR REQUIRED JUMP OUT 
053640 001461 BEQ 7$ [BRANCH OF SECTOR ZERO REQUIRED 
:*NOW THE 304 WORDS WILL’ START 


z*FOR FIRST BYTE SECTOR CLOCK WILL GO HIGH THEN CLOCK WILL GO HIGH 
:*BOTH WILL COME DOWN TOGETHER THEN SEVEN CLOCKS WILL BE GIVEN 

FOR SECOND BYTE AND ALL OTHER BYTES TILL NEXT SECTOR SECTOR CLOCK 
SAWILL BE IDENTICAL WITH ONE CLOCK 


012702 : BYTE COUNTER 
000002 #2 R5 ;BYTES PER WORD 
SET SECTOR CLOCK 
:SET CLOCK 
BRANCH TO CLEAR yh AND CLOCK 
MMSTCKIMCLK,@RO ;SET SECTOR AND CLOCK 
aa ee Ao = Ae AND CLOCK 


;BRAN OMPLETE 
:TO GIVE SECTOR CLOCK AND CLOCK 


3*NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 


#303., R1 WORDS PER SECTOR COUNTER 

é. RS BYTES PER WORD COUNTER 

#7, R2 BYTE COUNTER (CLOCK COUNTER) 
#MSTCK!MCLK,@RO ;SET SECTOR CLOCK AND CLOCK 
mck, aRO" a a CLOCK AND CLOCK 


#MSTCK.aRO 
R3 


SECTOR 
HIS REQUIRED NO OF SECTORS COMPLETE 
1$ BRANCH IF NOT 


(SP)+,R5 3;POP STACK INTO R5 
(SP)+,R4 33;POP STACK INTO R4 
(SP)+,R3 3;POP STACK INTO R3 
(SP)+,R2 33POP STACK INTO R2 
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78 10:10 


054022 
054024 


002024 
177777 
000402 


051422 
050414 
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(SP)+,R1 
(SP)+,RO 
R4 


;*READ ONE SECTOR OF DATA 


RNO: 0 
RCOM: 0 


REDATA: MOV 
MOV 


(R1)+,a4RNO 


1$ 
#~1 ,AATSECCG 
#258. -R2 


Ges 


(SP)+,R1 
R1 


2 
PAGE 


225 


33POP STACK INTO R1 
3:POP STACK INTO RO 


NO. OF WORDS READ 
EXTRA STORAGE 


SAVE NO. OF WORDS ONLY FOR INFORMATION 
EXTRA WORD ONLY FOR INFORMATION 

7;PUSH R1 ON STACK 

:IS THIS “a” ys TEST 


BRANCH IF 
: THESE BITS ARE TO GENERATE ECC 
7256 SECTOR 


WORDS 
POINTE TOS DISK SIMULATION 


READY TO READ CONTENTS 


AD 
31S 256 WORDS DONE? 
7 IF NOT BRANCH 
71S THIS AN ECC TEST 
BRANCH OUT IF YES 
NO MORE ECC BITS ARE TO BE GENERATED 
ONE DATA GAP, 14 TOLERANCE GAP 
+ 4 TO READ CONTENTS OF WORD 


; COUNT 

;BRANCH IF 14 NOT DONE 
3zPOP STACK INTO R1 
;RETURN 


SEQ 0224 
SEQ 0223 
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RPVECT: 
104401 054144 TYPE ,65$ sz TYPE ASCIZ STRING 
21 BR 64$ 7iGET OVER THE ASCIZ 
104402 TYPOC s TYPE FROM PC 
012777 054136 125410 MOV #RPVECT ,@RPVEC sRESTORE TRAP RPO4 VECTOR 
054216 000000 HALT s CHANGE TO CONTINUE 





SEQ 0226 


2 
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SEQ 0225 


SYSMAC LIBRARY ROUTINES 
-SBTTL SYSMAC LIBRARY ROUTINES 


CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
CZRJGC.P11 26-JUL-78 10:10 


054220 


054506 
054510 


124614 
001103 
001115 
001000 
001110 


001103 
001212 


124670 


000004 


124622 
001102 


001103 
124564 
001106 


124532 


001104 


001104 
001212 


1$: 


BN 
SXTSTR: 
MO 


@ANOS YNC 
@ATSECC 
@4TSECCG 
@4TESDTE 
#B1T14,aSWR 
SOVER 


6$ 
@FERRVEC ,-(SP) 
#5$, AAERRVEC 
a#177060 


(SP) +, a#ERRVEC 
$SVLAD 


(SP)+, (SP)+ 
(SP) +, @#ERRVEC 


7 
#B1T08,aSWR 


@SWR,STSTNM 
SOVER 

SERFLG 

3$ 
os 
#B1TO9,aSWR 
4$ 


SLPERR,SLPADR 
SOVER 


SERFLG 
STIMES 
i$ 


#B1T11,aSWR 
1$ 


(SP) ,SLPADR 
(SP) ,SLPERR 
SESCAPE 


#1 , SERMAX ae 
STSTNM,@DISPLAY ;; 


SLPADR, (SP) 


;;TEST FOR CHANGE IN SOF T=SWR 
TCLEAR FLAG FOR HEADER ERROR COMMANDS 
CLEAR FLAG FOR ECC TEST 
SEVEN IN AN ECC uty Aid CLOCK 
:DRIVE TIMING ERROR TEST 

OOP UN PRESENT Test? 


é NG ON THE ‘'XOR’’ TESTER CHANGE 
SAVE THE CONTENTS OF THE ERROR VECTOR 
2éSET FOR yf +g 
ME OUT ON X 
: IRESTORE THE ERROR VECTOR 
3;GO TO THE NEXT TEST 
3sCLEAR THE STACK AFTER A TIME OUT 
2 ¢RESTORE THE ERROR VECTOR 
;;LOOP ON THE PRESENT TEST 
::LOOP _—— TEST? 


330N THE RIGHT TEST? 

<THAS AN ERROR OCCURRED? 

:BR IF NO 

;:MAX. ERRORS FOR THIS TEST OCCURRED? 
“BR IF NO 

: LOOP ON ERROR? 

::SET LOOP ADDRESS TO LAST SCOPE 

:zZERO THE ERROR FLAG 


SWR<7:0> 


;CLEAR THE NUMBER OF ITERATIONS TO MAKE 


s ESCAPE TO THE NEXT TEST 
72: INHIBIT ITERATIONS? 
3; 7BR IF YES 
al FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
* INCREMENT ITERATION COUNT 
33C HECK THE NUMBER OF ITERATIONS MADE 
:BR IF MORE ITERATION REQUIRED 
i :REINITIALIZE THE ITERATION COUNTER 
23SET NUMBER OF ITERATIONS TO DO 
;COUNT TEST NUMBERS 
+: SAVE SCOPE LOOP ADDRESS 
7 SAVE ERROR LOOP ADDRESS 
seca THE ESCAPE FROM ERROR ADDRESS 
(1) aan ON NEXT TEST 


SEs RETURN AHORESS 
<<MAX. NUMBER OF ITERATIONS 
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C2RJGC.P11  26-JUL-78 10:10 T BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0226 
9717 054512 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
9718 054514 010146 MOV R1,-(SP) *=PUSH R1 ON STACK 1 
9719 054516 010246 MOV R2,-(SP) +=PUSH R2 ON STACK 1 
9720 054520 346 MOV R3,-(SP) +:PUSH R3 ON STACK 1 
9721 054522 010546 MOV R5,-(SP) +:PUSH R5 ON STACK 1 
9722 054524 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 1 
9723 054530 016605 000020 MOV 20(SP) .R5 °:GET THE INPUT NUMBER 1 
9724 054534 100004 BPL *:BR IF INPUT IS POS. 1 
9725 054536 005405 NEG R5 ‘MAKE THE BINARY NUMBER POS. ‘ 
9726 054540 112766 000055 000001 MOVB = #"=, 1 (SP) > :MAKE THE ASCII NUMBER NEG. 1 
9727 054546 005000 1$: CLR RO *:ZERO THE CONSTANTS INDEX 
9728 054550 012703 054726 MOV #SDBLK ,R3 t:SETUP THE OUTPUT POINTER 1 
9729 054554 112723 000040 MOVB ss #'_, (R3)+ ‘:SET THE FIRST CHARACTER TO A BLANK 
9730 054560 005002 2$: CLR R2 >:CLEAR THE BCD NUMBER 
9731 054562 016001 054716 MOV $DTBL(RO),R1 ::GET THE CONSTANT 
9732 054566 160105 3$: SUB R1,R5 >:FORM THIS BCD DIGIT 
9733 054570 002402 BLT 4$ ::BR IF DONE 
054572 005202 INC R2 t: INCREASE THE BCD DIGIT BY 1 
9735 054574 000774 BR 3$ 
9736 054576 060105 4$: ADD R1,R5 :zADD BACK THE CONSTANT 
9737 054600 005702 TST R2 :3CHECK IF BCD DIGIT=0 
9738 054602 001002 BNE 5$ ‘FALL THROUGH IF 0 
9739 054604 105716 TSTB.— (SP) *:STILL DOING LEADING 0'S? 
9740 054606 100407 BMI 7$ ::BR IF YES 
9741 054610 106316 S$: ASLB (SP) + MSD? 
9742 054612 103003 BCC 6$ ::BR IF NO 
9743 054614 116663 000001 177777 MOVB  1(SP),-1(R3) =: : YES=-=SET THE SIGN 
9744 054622 052702 000060 6$: BIS #°0,R2 S2MAKE THE BCD DIGIT ASCII 
9745 054626 052702 000040 7$: BIS #" ,R2 :zMAKE IT A SPACE IF NOT ALREADY A DIGIT 
9746 054632 110223 MOVB _——R2, (R3) + *:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
9747 054634 005720 TST (RO) + t:JUST INCREMENT ING 
9748 054636 020027 000010 CMP RO,#10 +: CHECK THE TABLE INDEX 
9749 054642 002746 BLT 2$ *:GO DO THE NEXT DIGIT 
9750 054644 003002 BGT 8$ ::GO0 TO EXIT 
9751 054646 010502 MOV R5.R2 ::GET THE LSD 
9752 054650 000764 BR 6$ *GO CHANGE TO ASCII 
9753 054652 105726 8$: TSTB (SP) + ; 7 WAS i # LSD THE FIRST NON-ZERO? 
9754 054654 100003 BPL 9$ 
9755 054656 116663 177777 177776 MOVB  =1(SP),-2(R3) soi eset THE SIGN FOR TYPING 
9756 054664 105013 9$: CLRB —_ (R3) :3SET THE TERMINATOR 
9757 054666 012605 MOV (SP)+,R5 *POP STACK INTO RS 
9758 054670 012603 MOV (SP) +,R3 *:POP STACK INTO R3 
9759 054672 012602 MOV (SP) +,R2 >:POP STACK INTO R2 
9760 054674 012601 MOV (SP) +,R1 +:POP STACK INTO R1 
9761 054676 012600 MOV (SP) +.RO *:POP STACK INTO RO 
9762 054700 104401 054726 TYPE $DBLK ‘=NOW TYPE THE NUMBER 
9763 054704 016666 000002 000004 MOV 3(SP) ,4(SP) + ADJUST THE STACK 
9764 054712 012616 MOV (SP) +, (SP) 
9765 054714 000002 RTI ::RETURN TO USER 
9766 054716 023420 $DTBL: 10000. 
9767 054720 001750 1000. 
9768 054722 000144 100 


9769 054724 000012 10. 
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055154 


26-JUL-78 


105737 
100002 


001157 


055152 


055106 
001156 


001154 
000001 


055106 
055152 


000040 
055106 
000007 


124036 


000002 
000015 


055152 
000012 


MACY11 30A(1052) 
TYPE ROUTI 


055152 


124030 
000002 


000002 


$TYPE: 


1$: 
2$: 


BR 
$TYPEC: 
BP 


1$: 


INCB 
SCHARCNT : . WORD 


STYPEX: RTS 


H 
27-JUL=78 12:41 
NE 


STPFLG 
1$ 


3$ 
RO,~(SP) 
a2(SP) ,RO 
(RO) +,-(SP) 
4$ 


(SP) + 
(SP)+,RO 
#2, (SP) 


HHT, (SP) 
8$ 
ACRLF , (SP) 
5$ 

(SP)+ 


SCHARCNT 
2s 


PC,$TYPEC 
: act tae 


2 
$NULL , (SP) 
1(SP) 

6$ 


PC,STYPEC 
SCHARCNT 
7$ 


2 (SP) 
PC, $TYPEC 
#7, $CHARCNT 
9$ 


(SP)+ 
2$ 


ALF ,2(SP) 
STYPEX 
(PC)+ 

0 

PC 


2 
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SEQ 0228 
SEQ 0227 


221 He Be TERMINAL ? 
; SHALT HERE IF NO TERMINAL 
AVE 


7 :SAVE RO 
33GET ADDRESS OF ASCIZ STRING 
+ PUSH CHARACTER TO BE TYPED ONTO STACK 
;BR IF IT ISN'T THE TERMINATOR 
Zr1F TERMINATOR POP IT OFF THE STACK 
3 RESTORE RO 
3 sADJUST RETURN PC 
TURN 


+ :BRANCH IF <HT> 
BRANCH IF NOT <CRLF> 


szPOP <CR><LF> EQUIV 
7: TYPE A CR AND LF 


3=CLEAR CHARACTER COUNT 
33GET NEXT CHARACTER 
3:GO TYPE THIS CHARACTER 
3731S IT TIME FOR FILLER CHARS.? 
self NO GO GET NEXT CHAR. 
33GET # OF FILLER CHARS. NEEDED 
:2DOES A NULL —-. TO BE TYPED? 
:BR IF “wt GO POP THE NULL OFF OF STACK 
7:G0 TYPE A 


NULL 
Sit: NOT COUNT AS A COUNT 


+ REPLACE TAB WITH SPACE 
zsTYPE A SPACE 

3 ;BRANCH IF NOT AT 

33TAB STOP 

33POP a OFF STACK 

32GET_ NEXT CHARACTER 

zeWAIT UNTIL PRINTER IS READY 


3;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3231S CHARACTER A CARRIAGE RETURN? 

; ;BRANCH IF NO 

4245 cee CHARACTER COUNT 


7cEXIT 
3318 cage eB A LINE FEED? 


S:COUNT THE CHARACTER 
3; CHARACTER COUNT STORAGE 





CZRJGCO,RPO4/5 
CZRJGC.P11 


055156 


/6 DSKLS CTRLR1 
26-JUL-78 10:10 


055156 
0551 


123674 
177600 

3 
056235 
055176 


041444 
000007 


000176 
000011 
001216 


000023 
123572 
123564 
123560 
177600 
000021 
000100 


055156 
000140 


MACY11 30A(1052) 
TTY INPUT 


055160 
055162 
000060 
000062 
123700 


001140 
055156 


123536 


STKCNT: 


R 
STKSRY: 


27-JUL-78 
ROUT INE 


- WORD 


I 
12:41 


STKCNT 


#STKQSRT ,STKQIN 
$TKQIN, $TKQOUT 
MSTKSRV ,AATKVEC 
een 


a$TkB 
#100, ,aSTKS 
a$TKB,-(SP) 
#°C177, (SP) 
(SP) #3 

1$ 


-SCNTLC 
PC STKINT 


1 
@$TKB,-(SP) 
#°(177, (SP) 

(SP)+, #21 


3 
#100, a$TKS 


STKCNT 
(SP) ,4140 


2 
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3 NUMBER OF ITEMS IN QUEUE 
3; INPUT POINTER 
+ /QUTPUT POINTER 
CLEAR COUNT OF ITEMS IN QUEUE 
 sMOVE THE STARTING ADDRESS OF THE 
UEUE INTO THE INPUT & in, POINTERS. 
iS INITIALIZE THE KEYBOARD VECT 
ee "'BR'' LEVEL 4 
CLEAR DONE FLAG 
ZZENABLE TTY KEYBOARD INTERRUPT 
;sRETURN TO CALLER 
3=PICKUP_THE CHARACTER 
7zSTRIP THE JUNK 
:cIS ITA — C? 


; BRANCH IF NO 
sz TYPE A CONTROL-C (“*C) 
sz INIT THE KEYBOARD 
3 :CLEAN UP STACK 
;zCONTROL C RESTART 
sz1S IT A CONTROL G? 
BRANCH IF NO 
t21S SOF T-SWR SELECTED? 
:;GO TO SWR CHANGE 
2315S ben J QUEUE FULL? 
; BRANCH IF A. 
+: RING THE TTY BELL 
ig CHARACTER br OF STACK 
3335 IT A CONTROL-S? 
eo CH IF NO 
: DISABLE TTY KEYBOARD INTERRUPTS 
:: CLEAN CHAR OFF STACK 
:zWAIT FOR A CHAR 
: LOOP UNTIL ITS THERE 
22GET THE CHARACTER 
MAKE IT 7-BIT ASCII 
HIS IT A CONTROL-Q? 


CH IF NO 
: :REENABLE TTY KEYBOARD INTERRUPTS 
7:COUNT THIS — 


SEQ 0229 
SEQ 0228 





4$ 
(SP) 4175 
4$ 


#40, (SP) 
(SP)+,@$TKQIN 
STKQIN 

STKQIN, #$TKQEND 3360 OFF THE END? 
5$ BRANCH IF NO 
#STKQSRT ,STKQIN ;:RESET THE POINTER 


PU 
SUPDATE THE POINTER 
055175 


055160 
001140 
123444 


RETURN 
#SWREG , SWR 3333 THE SOFT-SWR SELECTED 
15$ T IF NOT 


SUF NOT, EXIT 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
26-JUL-78 10:10 


CZRJGC.P11 


055502 
0555 


117746 
2716 


123440 
177600 
000007 


001134 


055176 
123402 
000001 
056247 
056254 
000176 
056265 


123342 
123336 
177600 


056235 
000006 
001135 


000100 
041444 
000025 


056242 
000006 


000015 
000004 
000002 


MACY11 30A(1052) 
TTY INPUT 


000001 


001135 


000001 
123274 


123222 


000001 
123200 


6$: 


J 
27-JUL=78 12:41 
ROUT INE 


@$TkKB,-(SP) 
#°(177, (SP) 
(SP) #7 
$AUTOB, #1 
2$ 

(SP) + 

PC ,$TKINT 
asTks 

#1, $INTAG 
/SCNTLG 

* SMSWR 
SWREG, -(SP) 
, SMNEW 
=(SP) 

-(SP) 

asTks 
a$TkKB,-(SP) 
#°(177, (SP) 
(SP) #3 

9$ 

/SCNTLC 
#6,SP 
SINTAG,#1 
BE 

#100, a$TKS 
OPERSEL 
(SP) ,#25 
10$ 
/$SCNTLU 


19$ 

(SP) ,415 
16$ 

4(SP) 

11$ 

a Ta 


e 


.SCRLF 
SINTAG,41 
#100, a$TKS 


PC ,STYPEC 
ae 


18$ 

| cual 
#60, (SP)+ 
2(SP) 


2 
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SEQ 0230 
SEQ 0229 


ee S 
MAKE IT 7-BIT ASCII 
i318 IT A CONTROL-G? 

F NOT, PUT IT IN THE TTY QUEUE 
3 WE RUNNING IN AUTO-MODE? 
3; ;BRANCH IF YES 
;;CLEAR CONTROL-G OFF STACK 
sZFLUSH THE TTY INPUT QUEUE 
: DISABLE TTY KEYBOARD INTERRUPTS 
:7SET INTERRUPT MODE INDICATOR 
:zECHO THE CONTROL-G ( 


33CHAR THERE? 

731F NOT TRY AGAIN 
:-PICK UP CHAR 

7¢MAKE_ IT 7-BIT ASCII 
2215 IT A_CONTROL~C? 


CH IF NOT 
::YES. ECHO CONTROL-C (“C) 
7s CLEAN UP STACK 
pty “_ KEYBOARD INTERRUPTS? 


; ALLOW TTY KEYBOARD INTERRUPTS 
sz CONTROL-C RESTART 
::1S IT A CONTROL-U? 
; BRANCH IF NOT 
si YES, ECHO CONTROL-U (“U) 
— PREVIOUS INPUT 

z:LET S TRY IT AGAIN 

S Ae A <CR>? 


BRANCH IF NO 
::YES, IS IT THE FIRST CHAR? 
CH IF YES 


AND <LF> 
Ls KBD INTERRUPTS? 
TTY KBD INTERRUPTS 


F YES 
YES 
“STRIP-OFF ASCII 
:31S THIS THE FIRST CHAR 


CH IF 
:2NO, SHIFT PRESENT 
; CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 





an 


—_’ <=} a [io | 
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CZRJGCO,RPO04/5/6 DSKLS cra 30A(1052) 27=JUL-78 12:41 PAGE 232 SEQ 0231 
CZRIGC.P11 26-JUL-78 10:10 TT’ INPUT ROUTINE SEQ 0230 


002002 17$: 2(SP) : sKEEP COUNT OF CHAR 
177776 acne NEW C 


BR 
001222 188: $QUES 
BR 20$ t:SIMULATE CONTROL-U 
SRDCHR: (SP) ,=(SP) 3 PUSH DOWN THE PC AND 

000004 MO (SPS, 2(SP) ‘THE PS 
600004 4 (SP) *:GET READY FOR A CHARACTER 

; ~(SP) 73PUT NEW PS ON STACK 
056052 #64$,-(SP) - 


3 C AND 
055155 : —— 7sWAIT ON A CHARACTER 


055156 STKCNT ;zDECREMENT THE COUNTER 
000004 @$TKQOUT ,4 (SP) 2sGET ONE CHARACTER 
$TKQOUT TE THE POIN 


KQOU :UPDA TER 
055162 055175 ed -WSTKQEND  ; Fit El ag OF THE END? 
055164 055162 MO WSTKOSRT,STKQOUT’ Jie THE POINTER 


: R3,~-(SP) sSAVE R3 
056224 1$: #STTYIN,RS GET ADDRESS 
056235 : MSTTYIN+9.,R3 5 ;BUFFER FULL? 
4$ ::BR IF YES 
7:GO READ ONE CHARACTER FROM THE TTY 
VB (SP) +, (R3) 3;GET CHARACTER 

000177 2 #177, (R3) 3771S IT A RUBOUT 

$ 73SKIP IF NOT 


BN 3 
001222 : ,- SQUES sc: TYPE A °?° 

BR 1$ 3: CLEAR THE BUFFER AND LOOP 
056222 : (R3) ,9$ :zECHO THE CHARACTER 


056222 9 
000015 ' #15, (R3)+ +s CHECK FOR RETURN 
2$ LOOP IF NOT RETURN 
177777 -1(R3) 73 CLEAR RETURN (THE 15) 
001224 _- ,$LF sTYPE A LINE FEED 
(SP)+,R3 i RESTORE R3 
(SP) ,-(SP) ; ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 4(SP) ,2(SP) as FIRST ASCII CHARACTER ON IT 
056224 000004 MSTTYIN,4(SP) 


RETURN 
9$: 5 {STORAGE FOR ASCII CHAR. TO TYPE 
006503 000012 S$CNTLC: /*C/<15><12> 32: CONTROL  ¥ 
005015 000 : .ASC /*U/<15><12> *:CONTROL ‘U"' 
006507 000012 ASC /*G/<15><12> F aetna eo 
053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = 


000 
040 047040 053505 SMNEW: .ASCIZ / NEW = 
056272 000040 
3FROM THE TTY 





a 
CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 ee ae 27-JUL-78 12:41 PAGE 233 SEQ 0232 
CZRIGC.P11 26-JUL-78 10:10 AN OCTAL NUMBER FROM THE TTY SEQ 0231 


$RDOCT: MOV (SP) ,~(SP) ; Nour SPACE FOR THE 
000004 000002 MOV c T NUMBER 


INE 
(SP)+,RO SIGET ADDRESS OF 1ST CHARACTER 
RO,5$ TZAND SAVE IT 
R1 Z:CLEAR DATA WORD 


R2 
(RO) +,=(SP) 3zPICKUP THIS CHARACTER 
3 self ZERO GET OUT 
MAKE SURE THIS CHARACTER 
7:1S AN OCTAL DIGIT 


so%2 
se%4 
33*8 


R2 
177770 #*C7, (SP) zsSTRIP THE ASCII JUNK 
a 3;ADD IN THIS DIGIT 


sel 
(SP) + 33CLEAN TERMINATOR FROM STACK 
R1,12(SP) 3;SAVE THE RESULT 
R2,$HIOCT 
(SP)+,R2 3zPOP STACK INTO R2 
(SP)+,R1 33POP STACK INTO R1 
(SP)+,RO 3zPOP STACK INTO RO 


; SRETURN 
4$: (SP)+ 7 CLEAN PARTIAL FROM STACK 
(RO) ::SET A TERMINATOR 
7: TYPE UP THRU THE BAD CHAR. 


0 

,SQUES ile aa ‘*cR'' g "=e" 

BR 1$ SI TRY AGAIN 

$HIOCT: .WORD 0 3;;HIGH ORDER BITS GO HERE 


ai ll cel cel ici cll ely ceil ail cll te coy ee el els ent enh cath and anti itt 


—— ee ee ee a 


5$: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSSSSS8888 
WONAULSWN-—O 
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177777 
001103 


122372 


001000 


007110 
001214 


001214 


2 
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OR HANDLER R 
#-1 ,AACRFLGS 
SERFLG 


$ 
STSTNM,@DISPLAY 
> yi aman 


, $BELL 

SERTTL 

(SP), SERRPC 
#2, SERRPC 
@SERRPC ,$1TEMB 
#81113, aSWR 
20$ 

PC ,SERRTYP 
-SCRLF 


@aSWR 
3$ 


* hates: 
SLPERR, (SP) 
SESCAPE 


5$ 
SESCAPE , (SP) 


;TEST FOR a IN SOF T=SWR 
SET ERROR FLAG 
:3SET THE ERROR FLAG 

:DON'T LET THE FLAG GO TO ZERO 
‘DISPLAY TEST NUMBER AND ERROR FLAG 
7;BELL ON ERROR? 
73NO = SKIP 
a BELL 

T THE NUMBER OF ERRORS 

T:GET ADDRESS OF ERROR INSTRUCTION 


7zSTRIP AND SAVE THE ERROR ITEM CODE 
3sSKIP TYPEOUT IF SET 

73SKIP_TYPEOUTS 

3:GO TO USER ERROR ROUTINE 


HALT ON ERROR 
33SKIP IF CONTINUE 
T ON ERROR! 
Z:TEST FOR CHANGE IN SOFT-SWR 
so g _* ERROR SWITCH SET? 


‘FUDGE RETURN FOR LOOPING 
er FOR AN ESCAPE ADDRESS 


F NONE 
i ZFUDGE RETURN ADDRESS FOR ESCAPE 


SEQ 0233 
SEQ 0232 
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104401 001223 
010046 


001114 
001116 


056754 


001223 
00020 
056754 000 


N 2 
MACY11 a ie 27-JUL-78 12:41 PAGE 235 


OR MESSAGE TYPEOUT ROUTINE 


-SCRLF 
RO,-(SP) 


RO 
a 
SERRPC ,~(SP) 


(RO) +,4$ 
5$ 


-SCRLF 
R1,-(SP) 
(RO)+,R1 
9$ 


(RO)+,RO 
(RO) + 


7$ 
a(R1)+,-(SP) 


8$ 
a(R1)+,-(SP) 
(R1) 

9$ 
.11$ 
6$ 
(SP)+,R1 
(SP)+,RO 
go 


RTS C 
ASCIZ / / 


3 SAVE RO RETURN'' & "LINE FEED’ 
;:PICKUP THE ITEM INDEX 


;;1F ITEM NUMBER IS ZERO, JUST 
TISAVE SERRPC FOR TYPEOUT 
$360 TYPE=-OCTAL ASCII(ALL DIGITS) 


ET OUT 
+ :ADJUST THE INDEX SO THAT IT WILL 
sé WORK FOR THE ERROR TABLE 


73FORM TABLE POINTER 

33PICKUP ‘ERROR MESSAGE** POINTER 
:sSKIP TYPEOUT IF NO POINTER 

3: TYPE THE ‘ERROR MESSA 

32" ERROR MESSAGE** POINTER a HERE 
33"‘CARRIAGE RETURN’ & "LINE FEED’ 

2 PICKUP "DATA 2 POINTER 


2 TYPE HEADER’ 
33° DATA HEADER'* POINTER GOES HERE 
cisave RI RETURN'’ &@ “LINE FEED" 


ee 


E 
2 ¢PICKUP “DATA TABLE’’ POINTER 


IF DECIMAL 
:7SAVE a(R1)+ FOR TYPEOUT 
32GO TYPE--OCTAL ASCII‘(ALL DIGITS) 


3;SAVE a(R1)+ FOR TYPEOUT 

3360 TYPE=-DECIMAL ASCII WITH SIGN 
se ‘aR Hage ANOTHER NUMBER? 

Ti TYPE TWO(2) SPACES 

; LOOP 

SZRESTORE R1 

7;RESTORE RO 

2 na METURN'' & "LINE FEED*’ 


3:TWO(2) SPACES 


SEQ 0234 
SEQ 0233 





B 3 
CZRJGCO.RP04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL=78 12:41 PAGE 236 SEQ 0235 
CZRJGC.P11 26-JUL-78 10:10 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0234 


STYPOS: MOV a(SP) ,-(SP) ste? THE MODE 
000001 057203 MOVB 9 LOAD ZERO FILL SWITCH 
057205 (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
000002 (SP SZADJUST RETURN ADDRESS 


BR STYPON 
000001 057203 : 7;SET THE ZERO FILL SWITCH 
000006 057205 MO 33SET FOR SIX(6) DIGITS 

000005 057202 3 - : SAVE RS ITERATION COUNT 


SISAVE.R R5 
057205 33GET THE NUMBER OF DIGITS TO TYPE 
000006 3¢SUBTRACT IT FOR MAX. ALLOWED 
057204 MOVB 7zSAVE IT FOR USE 
057203 SOF ILL.R4 33GET THE ZERO FILL SWITCH 
000012 12(SP) ,R5 $f NPUT NUMBER 
R3 : CLEAR PUT WORD 
* UROTATE MSB INTO ‘'C’’ 
:GO DO MSB 
STFORM THIS DIGIT 


— YY YD 


BeawRARaNaSes 


: 3;GET LSB OF THIS DIGIT 
057204 sig DIGIT? 


7$ NO 
177770 ° :3GET RID OF JUNK 
4$ FOR 


lolelelelejlolejlelelelole) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


F YES 
3 DON" T SUPPRESS ANYMORE 0'S 
000060 3 :MAKE THIS DIGIT ASCII 
000040 ‘ : #* ,R3 33 I IF NOT ALREADY 
057200 OR ING 
057200 .8$ :i¢0 TYPE THIS DIGIT 
057202 : + ¢ COUNT BY 1 
::BR IF MORE TO DO 

DONE 


;;BR IF 

7: INSURE LAST DIGIT ISN'T A BLANK 

3:GO DO THE LAST DIGIT 

3 zRESTORE RS 

Sg dha R4 

7 RESTORE R3 

73SET THE STACK FOR RETURNING 
(SP)+, (SP) 


7 RETURN 

zz STORAGE FOR ASCII DIGIT 

3:2 TERMINATOR FOR TYPE ROUTINE 
:;O0CTAL DIGIT COUNTER 

3zZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 





onl ae) 


c 2 
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STRAP: RO,-(SP) ;SAVE_RO 
000002 (SP), RO :3GET TRAD > ee 


UP BY 
(RO) ,RO 7:GET RIGHT BYTE OF TRAP 
RO ;sPOSITION FOR INDEXING 
057242 MOV a (RO),RO  ; 


R . 
STRAP2: (SP) ,=(SP) ‘ IMOVE THE PC DOWN 
000004 000002 MO 4(SP) ,2(SP) 7sMOVE THE PSW DOWN 
R 7sRESTORE THE PSW 
STRPAD: : 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 
GET BAe SETTING 
TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 

; MY LOCAL SCOPES 

7-CALL= =CHECKD  TRAP+14(104414) CHECK DVA.RDY ,DPR,DRY 

057274 ~-T 33 CALL=WAT TRAP+15(104415) WAIT LOOP 





dD 3 
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CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINES SEQ 0236 


057276 012737 057442 000024 : #SILLUP ,a#PWRVEC ytd FOR FAST UP 
05 000340 000026 MOV #340, SEPURVEC SS acy R10:7 
) PUSH RO ON STACK 


121606 ;sPUSH @SWR ON STACK 
057446 ;sSAVE SP 
057350 #SPWRUP ,@#PWRVEC :;SET UP VECTOR 


BR -2 ; sHANG UP 
057442 2 sSILLUP QFPURVEC ZSET FOR FAST DOWN 


VR 3sWAIT LOOP FOR THE TTY 
057446 : 2 WAIT FOR THE INC 
1$ F WORD 


121540 (SP)+,aSWR 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO ;;POP STACK INTO RO 
057276 #SPWRDN N, a@#PWRVEC +; SET UP THE POWER DOWN VECTOR 
000340 #340, a#PWRVEC+2 73PRIO:7 
+REPORT THE POWER FAILURE 
SPOWER sPOWER FAIL MESSAGE POINTER 
(PC)+, (SP) + TRESTART AT BEGIN 
BEGIN ; RESTART ADDRESS 


33 THE POWER UP SEQUENCE WAS STARTED 
“2 3; BEFORE THE POWER DOWN WAS COMPLETE 


: 0 :3PUT THE SP HERE 
042527 $POWER: .ASCIZ <15><12>° POWER’’ 
057456 





3 
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CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUT! SEQ 0237 


OE Ec os Canteen tc mata ane oe ROI PORE era tice pay wie 


! ERROR AND MESSAGE TABLE CONDIMENTS 


‘ POET rrr rrr Terre rrTerrr rer rrerrevrrrer errr errr tert Tet itr i Tt 


051127 020107 : -ASCIZ /WRONG DATA IN READING OR WRITING HARDWARE REGISTER/ 
040504 4440 


052123 
051117 : . ZERROR ON DATA COMMAND/ 
042040 


7ZERROR ON WRITE HEADER AND DATA/ 


051124 Le /CONTROLLER OR DRIVE STATUS/ 
020122 
044522 
040524 


052123 , +» /REGISTER FAILED/ 
044501 


054105 — /NON EXISTENT REGISTER, PROGRAM ABORTED. / 


/WAIT LOOP FAILED/ 


/WRITE CHECK FAILING/ 


052123 .  « /REGISTER FAILING/ 
044501 


000 
051105 — /INTERRUPT FAILING/ 
043516 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
CZRJGC.P11 


26-JUL- 


78 10:10 


051105 
032124 
047040 


020124 
023440 


MACY11 30A(1052) 
POWER D 


051117 EM22: 
051104 


050040 
052116 


051516 


020105 
020105 
041040 


000 
020113 EM24: 


F 3 
27-JUL=78 12:41 PAGE 240 


-ASCII 


-ASCII 


ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCIZ 


-ASCIZ 


OWN AND UP ROUTINES 


7ERROR ON DRIVES PRESENT =/<15><12> 


/THE UNIT NO'S FOUND BY SETTING RHAS USING RHER1/<15><12> 


/(T4) DO NOT AGREE WITH THE UNIT NO*S FOUND/<15><12> 


/BY LOOKING FOR ‘NED* = 0 IN RHCS2 (BIT #12)/<15><12><15><12> 


/NOTE: ON DUAL PORT SYSTEM, A DRIVE ON OTHER PORT WILL /<15><12> 


/NOT GIVE "NED', BUT WILL GIVE RHAS RESPONSES/<15><12> 


/HENCE THERE WILL BE AN EXTRA DRIVE/ 


/LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/ 


SEQ 0239 
SEQ 0238 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052 
POWER D 


CZRJGC.P11 26-JUL-78 10:10 
020104 


051105 
051122 


2524 
051522 7440 020122 


G 3 
) 27=JUL=78 12:41 PAGE 241 SEQ 0240 
TINES 


OWN AND UP ROU 


-ASCIZ 


SEQ 0239 


/LOOK AHEAD REGISTER IS IN ERROR/ 


/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGISTER/<15><12> 


/AFTER A SEEK AND INIT/ 


7ECC GENERATED IS INCORRECT/<15><12> 


/EVERY WORD ON THIS SECTOR IS THAT GIVEN IN ‘DATA USED''/ 


/ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ,/<15><12> 


7ECC REGISTERS OR RHER1 ARE IN ERROR/<15><12> 





aon 
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051105 
020105 
051122 


054514 046040 . /ONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ/<15><12> 
/THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECC1/ 
/HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/ 


020071 
051513 
020117 b- « /ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/ 


051105 
2524 


EM35: .ASCII /POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15><12> 


ad ad a cae cad ad ech ed eed 
WOONAULSWN— 


/LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<15><12> 


4 Vr DS I 


RRRRRKKRKEKK 


N 


052101 
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CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINES SEQ 0241 


053517 
-ASCII /11 BITS OF GOOD ECC1/<15><12> 


-ASCIZ /DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL/ 


052103 
020116 3 /ON READ COMMAND WITH NON-CORRECTABLE ERROR ‘DCK* AND "ECH' SHOULD BE SE 


B/ 
Bi 
Bi 
Bt 
Bi 
B! 


/PROGRAM ERROR BIT #10 IN RHCS2 DID NOT SET/<15><12> 


047040 
052105 
051517 /IF POSITION REGISTER =10040 OR 10041, IT IS GOOD/ 


053510 020103 : /RHWC DID NOT = 0 UPON COMPLETION OF READ/<15><12> 
0201 047516 
020060 
041440 
052105 
17 


0431 
006504 


051127 /OR WRITE HEADER AND DATA/ 
020105 042510 





J 3 
~} PAGE 244 SEQ 0243 


CZRJGCO,RPO4/5/6 DSKLS cm MACY11 30A(1052) 27=JUL-78 12: 
I SEQ 0242 


CZRIGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINE 


10483 062432 042101 051105 040440 
10484 062440 042116 042040 052101 
10485 062446 000101 


C 
Cc 
C 
C 
C 
Cc 
C 
Cc 


whe hwhwhwheolelholelhwheh~o) 
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CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINES SEQ 0243 


sao pe CPHALT: .ASCII /FATAL ERROR = SEE DOCUMENT LISTING/<15><12> 


/ 1<15><12><207><377><377><207><377><377><207><377><377> 
/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 


/*READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 


051524 


020110 ° /WHICH CANNOT BE CLEARED/ 
052117 


SPACE8: .ASCII 
SPACE2: .ASCIZ 


DH1: -ASCII REG. GOOD RECEIVED/<15><12> 


ovov9vr0rvr0909g9092I9I99I9I9TIT7277 


ADDR. DATA 


Le hw hw] 


BAD /<15><12> 





. 2 
1 PAGE 246 SEQ 0245 


CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL=78 12:4 
POWER DOWN AND UP ROUTINES SEQ 0244 


CZRJGC.P11 26-JUL-78 10:10 
020104 
015 
ASCIZ / 


-ASCII FAILING CONT. . - CONT. /<15><12> 


REG ADR RHCS1 RHER1/ 


-ASCII FAILING CONT. ° . ° -  4<15><1 


° 
b 
D 
D 
D 
o 
D 
O 
D 
b 
D 
D 
i" 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 


REG ADR BAD REG RHCS1 RHDS1 RHER1/ 


MmMmMmMMmMmn 


-ASCIZ REG ADR / 


051104 





mM 3 
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10598 000040 
10599 020040 020040 DH16: «ASCII /PC TEST WAIT /<15><12> 
10600 063620 020040 052123 


10601 020040 040527 


10602 063634 020040 020040 
10603 020040 
10604 


ADDRESS CONT. 


=28 


ee 


ASCII ‘ é ° a CONT. /<15><12> 


RRREKEE 


DaoNankwe 


ee ee ig et ed ed ed ed ed 
aes 
Lens 


RHWC 


E 
E 
E 
E 
E 
E 
E 
E 


020040 
031123 
020040 : ASCII CONT /<15><12> 
052123 
7503 


FRERRERRERRE 
SHIVKSESRRBARNSS 


RHER2 RHER3 RHAS 


AMR DMMMMMNMMMMMM inh 
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CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINES SEQ 0246 


051501 


DH21: .ASCII /PC CONT CONT /<15><12> 


RHCS1 RHAS RHDS1/ 


-ASCII RHAS RHCS2/<15><12> 
UNITS UNITS/ 


-ASCII RHDST BAD GOOD SECTOR SECTOR /<15><12> 


G 
G 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
Hi 
H 


CONT. RHLA RHLA NO 


020040 
020113 
pe0one -ASCII PC OF FAILING CONT. CONT. CONT. CONT. /<15><1 
050040 
020040 
044514 
047117 


KKK KK KKK OK 





CZRJGCO,RPO4/5/6 DSKLS rm MACY11 30A(1052) 27-JUL~78 ii Pi 


CZRJGC.P11 


26-JUL-78 


027124 
047117 


10:1 POWER DOWN AND UP ROUTINES 


ASCII 


-ASCII 


020040 
020101 
020040 020040 : ASCII 
042524 052123 
020040 047527 


4 
PAGE 


REG ADD RHCS1 


FAILING GOOD 


REG 


ADDRESS DATA 


GOOD 


BAD 


RHCS2 


RHDS1 = RHER1 


RECEIVED/<15><12> 


BAD 


/<15><12> 


SEQ 0248 
SEQ 0247 


/<15><1 





BBRBrrnrrrrRrRRKRKRARKR OO 


ZZZZZZZ ZVZBZBZZ 


felelelelelealealelelelel-»> + » 2 2 2. 2 a2 a ae & 1 
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CZRJGC.P1i 26-JUL-78 10:10 POWER DOWN AND UP ROUTINES SEQ 0248 


-ASCII 


-ASCII . ° -  <15><1 


SSRSSEERE 
WOONAULWY-O 


: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


S 





MMAR AARDRABDDARAAADADDUADDDVDDDVDDVDVDVVDVVVVVVVVVVVVVVVYPS VUVOONnN |AMm 
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CZRJGCO,RPO4/5S/6 DSKLS CTRLR1 MACY11 ge i 27-JUL-78 12: 44 PAGE 251 SEQ 0250 
C2RJGC.P11 26-JUL-78 10:10 DOWN AND UP ROUTINES SEQ 0249 


ASCIZ / NO JSR DATA RHCS1 RHDS1 RHERI / 


eASCII WRITTEN WRITTEN DATA /<15><12> 


VVVVVUVVVUVVVVVVY OO 


ECC1 ECC2 USED 


-ASCII PATTERN POSITON GOOD RHER1 3 /<15><1 


P 
Pp 
p 
Pp 
p 
R 
R 
R 
R 
R 
R 
R 
R 
R 
A 
R 
R 
R 
R 
R 
R 


REG.REG. POSITON REG. 


-ASCII POSITON PATTERN /<15><12> 
020040 
020124 
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CZRIGC.P11 26-JUL=78 10:10 POWER DOWN AND UP ROUTINES SEQ 0250 


-ASCII POSITON POSITON GOOD GOOD PATTERN DATA N-CODE / 


ECC GOOD ECC1 ECC2 ECC ENVLOPE ZEROS/ 


CONT. /<15><12> 


RHWC/ 


SERRPC, TSTNM,REGADR ,$GDDAT , $BDDAT ,0 
SERRPC, TSTNM,ERWORD , $GDDAT .0 
SERRPC, TSTNM,ERWORD , $GDDAT , $BDDAT .0 
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CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINES SEQ 0251 


001122 DT11:  .WORD SERRPC,TSTNM,$BDADR,CS1,CS2,DS1,ER1,0 
001736 


pores DT14: SERRPC, TSTNM, $8DADR, $BDDAT,CS1,CS2,DS1,ER1,0 


000000 
001200 DT15: . SERRPC, TSTNM, $TMP1,0 


001204 DT16: SERRPC, TSTNM,STMP3,$TMP1,$TMPO,$BDDAT ,0 
001126 

001710 DT17: . SERRPC , TSTNM,BA,DB,WC,CS1,CS2,0 

001714 


001716 DT20: . SERRPC, TSTNM,ER1,ER2,ER3,AS,DS1,0 

001732 

001714 DT21: SERRPC, TSTNM,CS1,AS,DS1,0 

000000 

000000 DI22: . SERRPC , TSTNM,O 

oot iSs DT24: SERRPC,TSTNM,DST,SBDDAT ,$TMP1 ,STMP2,$TMP3,0 


snail OT26: . SERRPC,TSTNM,PCJSR,$BDADR,CS1,CS2,DS1,ER1,0 
000000 


Seen DT27: SERRPC , TSTNM,PCJSR,REGADR ,SGDDAT , $BDDAT ,0 


NuUNDWADwWADWAD 


OTM: .« SERRPC, TSTNM,PCJSR,REGADR,$GDDAT , $B8DDAT .0 


DT31: SERRPC, TSTNM, ERWORD ,SGDDAT , $8DDAT ,CS1,DS1,ER1,0 


OTS2: . SERRPC, TSTNM,PCJSR,ERWORD ,$GDDAT . S8DDAT ,CS1,DS1,ER1,0 


MANnNNnNnWNUnNWnUuUMnYNW 


OTss: « SERRPC, TSTNM,PCJSR,ERWORD ,SGDDAT,CS1,DS1,ER1,0 


045314 D134: . SERRPC, TSTNM,GECC1,GECC2,WECC1 ,WECC2,DISK,0 
052424 
oh th OTs: . SERRPC, TSTNM,GECC1,GECC2,EC2,EC1,POSITI,ER1,0 


000000 
002014 DT36:. SERRPC, TSTNM,PCJSR,MR,EC1,EC2.0 
001746 


0017 


oo nese ost y SERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2,DATENV, ZCODE ,0 


LA LATA LALAL(ALCALALAUCACATACA 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27=JUL-78 12:4 SEQ 0253 
CZRJGC.P11 26-JUL-78 10:10 POWER DOWN AND UP ROUTINE SEQ 0252 


10990 070010 001746 045332 045334 
SE pate coat 
10993 001116 002032 001126 RW SERRPC , TSTNM, $BDDAT ,0 


; 


0,0,0,0,0 
0.0.1.0 
0.0,1,0,0 


$3833 


0,0,0.0,0.0,0 


0.0,0,0,0,0,0,0 


BESRSS8888 


0,0,0 

0.0,0, 
0.0,0,0,0.0,0 
0,0,0,0,0,0,0 


0,0,0.0.0 
0,0,0.0 
0,0,0.0,0.0,0 


0,0.0.0,0,0,0,0 


NONINPINPONONONN 2 2 SS SS Se oa a 
NOUSBWN 0 OONAUSWN—O 


0,0,0,0,0,0 
070146 


070151 


S338 


0,0,0,0,0,0 
0,0,1.0,0,0,0.0 


we 


0,0,0.1,0,0,0,0,0 


lelojlojelolelejolelelolelolojelojoloejolelolelolelelelejoleoelo) 


BISAE 


W 


0,0,0.1,0,0,0,0 


0.0.0,0,0,0,0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
F 
1 
; 
1 
] 
j 
1 
1 
j 
j 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


me ee le el ee me ee ee et ee ed ed td ed ot ot td 


SSSSSSSSSSSsSss SSSSSSSSSSSSSSs SSSSSSssEs 


RRRRRK 
MSWN-OoO0 


070216 
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CZRIGC.P11 26-JUL-78 10:10 DOWN AND UP ROUT! SEQ 0253 


DF35: .BYTE 0,0,0,0,0,0,0,0 


DF36: .BYTE 0,0,0,0.0,0 
DF37: .BYTE 0,0,0.0,0,0.0,0,0 
070243 


070246 000 DF40: .BYTE 0,0,0 
- EVEN 


- END 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
e 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
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CZRJGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0254 


000200 
000040 


SSSI 


3338 5716 10950 
4588 5726 6920 7050 7244 


1782* 3511 5704 7048 7143 7242 


wa) 
2 
= th ot I I I I - 


20 
ATTENT 002016 
TO 000001 


ninninnnininn 
ate eb tee ep rte be ey 
NMWNYV— ViFWh—OoOwO 
VVRQVVeLeVeLVesee 


1881 2072 2088 2100 74414 
7896 3 


eee eee ee ee ee ee ee ee ee lee Ree Ree Bee Been Bee ee ee bee 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
CZRJGC.P11 


001726 
037004 
001752 
104414 
043044 
042654 


104407 
042536 


042620 


DAWORD 

DB 

DCK 

DCL 000100 
DCLEAR 002050 
DDISP = 177570 
DENVL = 000200 
DE1 000040 


DFF20 = 000002 
DF1 070030 


26-JUL-78 10:10 


MACY11 30A(1052) 


711 


J 4 
27-JUL=78 12:41 PAGE 258 
CROSS REFERENCE TABLE -- USER SYMBOLS 


9076* 
5823* 


8126 


5214 
7984 


7567 
2803 


5276* 
6744 


5925*  6167* 
8129 


6181 
104874 
5283 


7573 
2828 


5284 
6752 


7726* 7823* 


SEQ 0256 
SEQ 0255 


10935 10938 
5619 5621 5740 


5818* 5826 5920* 
6844 7721* 7729 


87994 





U 
L 
u 
U 
U 
U 
U 
U 
U 
V 
\ 
V 
b 
‘a 
b 
b 
a 
la 
b 
h 
b 
4 
\ 
4 
4 
h 


=< =< 
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CZRJGC.P11 26-JUL-78 10:10 
110034 


110234 


110004 
110344 


107854 
108534 
108754 


000004 
051422 


001142 


CROSS REFERENCE TABLE == USER SYMBOLS 


2208 4722 

6 
8078 8521 8536* 
9713* 10024* 
2878 2881 


2012 2289 
3743 3803 


SEQ 0257 
SEQ 0256 


wi 
Wi 
Wi 
Wi 
wi 
Wi 
Wi 
W 
W 
W 
Wi 
x 
x 
Y 
Zz 
Zz 
Z 
$ 
$ 
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4544* 10956 
1458 


5724 5744 5780 670 
10938 10950 10953 10959 10969 10972 


8943 8946 
710 109284 
109354 


$i 
$l 
$ 
$ 
$i 
3 
$i 
$i 
$ 
$ 
$ 
$ 


109564 


109324 


109694 
109724 


P F F FF FF F 9 69 


ne 
$295 2907 2915 2917 2939 2941 2949 
5859s 8986* 8988* 9003* 9005* 9051*  9055*  9066*  9070* 
5223 5368 5838 5941 6178 7741 7840 8026 
9014 9062 9077 


1566* 
02124 
832 102314 


057755 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 
CZRJGC.P11 26-JUL-78 10:10 


057776 


020570 


052662 
013434 


¥QVSal 


RRR 


FER 000020 
FILLEC 046110 
FIRST 002034 
FMT22 = 010000 


— 
4 


MACY11 30A(1052) 


102494 
607 624 


102254 
3431 


5449 


27-JUL=78 
CROSS REFERENCE TABLE == USER SYMBOLS 


102214 


949 
5790 


4651 
5074 
5516 


10930 
6222 


4667 
5091 
5818 


M 
12:41 


4 
PAGE 261 


3466 3482 
35824 


2375 
4716* 
52 


8928* 8948 
10932 10969 
6315 10935 


10976 
10938 10950 10959 10969 10972 


4682 4750 
5133 5149 
5838 5920 


SEQ 0259 
SEQ 0258 


10976 


$ 
% 
$ 
$ 
$ 
$ 
$i 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
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6670 6764 6831 6834 7211 
7978 8026 8154 
93434 


6259 92654 9472 
1097’ 10982 


2665 2681 2696 2826 2846 2881 2972 2978 2988 
6903 7483 


5351* 5821* 5923* 6165* 6253* 6653* 6747* 6839* 7724» 
5352* 5822* 5924% 6166* 6254* 6654* 6748* 6840* 7725* 


172356 
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6538* 
1765* 
6841* 87944 


fw 


REV = 000200 
OFSETC 002074 
OF 100 = 000004 


NAP RP ee em 


OF 800 = 000040 
OPERSE 041444 





* APO M OO 
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2744 2843 2859 2881 6053 6902 7483 
88014 


7561* 7612% 7613%  8007*  8008*  8184* 8185*  8454*  8455*  8711* 
10959 10962 10966 10972 10976 10985 


8385 


3697 3762 3810 3873 3930 4022 4070 4145 4190 4268 4313 


8464 8472* 8473 8475 8518* 10982 10988 


18644 
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Teli. 2585 3123 3530 5725 5745 5781 6704 6798 7585 


7280* 7371* 


2697 2745 2801 2827 2847 3102 3113 3150 5012 5304 
5773 6054 6220 6284 6678 6772 6959 7412 7562 


8481 
10167* 10176* 10179* 10191* 10192* 


101624 
2657 


2711* 
3015* 
3960 


* 
6397* 
8201* 


REGSA1 
RE INTO 





E 5 
CZRJGCO,RP04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL=78 12:41 PAGE 266 SEQ 0264 
CZRJGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0263 


RELEAS eaty 


2546* 
3302 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 


CZRJGC.P11 
RH70 002040 
RH70CK 005364 
RKEY1T 047614 
RKEY2 047616 
RNCTR1 052464 
RNO 54022 
RNWAT1 052544 
RPVEC 001626 
RPVECT 054136 
RPO6 2036 
RSETR 047612 
RSYNC 047606 
RTN 006024 
RUNCTR 04734 
RUNWAT 047422 
SAVDT 002010 
SAVER 043312 
SAVSN 002012 
sc =1 
SCOP1 = 104413 
SCRC 052734 
SCYL 052724 
SC1_ = 000100 
$c10 = 001000 
C2. = 000200 
$C20 = 002000 
SC4 = 00 
SEARCH 053552 
SECGAP 051324 
SECOTR 7506 
SECTR 053550 
SEECOM 002072 
SEGPER 052654 
SELECT 200 
SELTST 75 
SERCH 002054 
SETDSK 044302 
SILOTB 051422 
SKEY1 052730 
SKEY2 052732 
SKI = 04 
SN 001742 
SND1 005326 


26-JUL-78 10:10 


6539 
91904 


7 
MACY11 30A(1052) 27=JUL=78 12:41 PAGE 267 
CROSS REFERENCE TABLE =~ USER SYMBOLS 


5277* 
6652* 


7291 


79594 


5278* 
6745* 


3820 3843 
4152 4174 
96 4618 

5218* 5231 
6880 6926 
8021* 8150s 
2727 2790 
7213 

9449 9495 
3635 3654 
4151 4196 
7033 7053 
7045 


5349* 5350* 
6746*  6837* 


9499 


5819* 
6838* 


5820* 
7722* 


SEQ 0265 
SEQ 0264 


5921* 
7723* 


G 5 
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C2RJGC.P11 26-JUI.=78 10:10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0265 
SPACE2 062730 2224 105194 
SPACES 5 1423 2218 2219 2227 2228 2229 =105184 
SRO = 5254 
SRI = 157804 5254 
SR2 = 177576 5254 
SR3—_= 172516 5254 
SSECTR 052726 93714  9378* 
SSYN 047516 8737* 87524  8884* 
STACK = 5024 1442 1527 1575 1861 1877 1891 1938 1953 1968 2035 2052 2068 
2084 20 2119 2479 2539 2626 2673 2897 2930 3004 3030 3079 3167 
3363 3598 3851 3976 4110 4232 4353 4415 4424 4625 4638 4738 4848 
4962 5044 5119 5193 5270 5333 5444 5567 5685 5803 5 5997 6148 
6239 6327 6410 6420 6450 6460 6490 6500 6526 6536 6562 6595 3 
6727 6738 6817 6986 6995 7087 7183 
START 004244 1432 14364 
STARTA 466 14714 
STKLMT= 177774 5024 
SWR 001140 5464 1440 1458* 1460 1465* 1503 1509 1543 1616 1645 2214 2777 3878 
3968 5322 5425 5893 6306 6696 6790 6975 7456 7526 7796 8395 8397 
sored 9684 9686 9692 9699 9839 9870 9912* 10025 10032 10036 10040 10174 
® 
SWREG 000176 5044 1465 1503 9839 9870 9886 
SwO = 000001 5024 
SwoO = 000001 5024 
sw01 = 000002 5024 
SwO2 = 000004 5024 
SwOS = 000010 5024 
sw04 = 000020 5024 
swOS = 000040 5024 
SwO6 = 000100 5024 
SwO7 = 000200 5024 2778 2779 5324 5427 5895 6308 6698 6792 6977 7798 
sw08 = 000400 5024 2778 
SwOo9 = 001000 5024 7456 7526 
SWw1_ = 000002 5024 
Sw10 = 002000 5024 
SW11 = 004000 5024 
SWw12 = 010000 5024 1509 
SWw13 = 020000 5024 1543 1616 1645 2214 3878 
SW14 = 040000 5024 
SW15 = 100000 5024 
SWw2 = 000004 5024 
SW3 = 000010 5024 
Sw4 = 000020 5024 3968 
SWS = 000040 5024 
SW6 = 000100 5024 8397 
Ssw7 == 000200 5024 
SW8 = 000400 5024 8395 
= 001000 02# 
TAGDTE 002030 13714 
TBITVE= 000014 5024 
TOF = 000040 11624 11804 
TESDTE 002026 13674 8896 9441 9672* 
TESTAD 041442 73684 
TIMCNT 043170 76504 7659 7664 
TKVEC = 000060 5024 9824* 


9825* 
TMPILL 002022 13614  3083* 3086 3088* 3093 3095 3096* 


H 5 
CZRJGCO,RPO04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27=JUL=78 12:41 PAGE 269 SEQ 0267 


CZRIGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0266 
TOLGAP 052430 5274 6247 6648 6742 6822 9120 91954 

TOTALA 002020 13594 1638* 1640* 3386 3510 

TPVEC = 000064 5024 

TRAPVE= 000034 S02# 861447 = 1448* 

TRE = 040000 10554 2645 2654 3152 5956 5958 6904 7045 

TRK 047456 8732* 87354 

TRK1_ = 004000 11494 

TRK10 = 040000 11524 

TRK2 = 010000 11504 

TRK20 = 1 11534 

TRK4 = 02 11514 

TRP 005766 1556 15634 

TRTVEC= 000014 5024 

TSECC 002024 13634 9129 9635 9645 9670* 

TSECCG 045320 82644 8388 8982 8994 8999 9011 9059 9074 9131* 9143* 9637* 9647* 9671* 
TSTNM = 002032 13744 1528% 1576% 1597% 1614% 1741% 1837% 1855* 1862* 1878* 1892* 1939% 1954* 


6 6537 6563*  6596*  6632*  6645* 
6739* 6818*  6987* 6996"  7088* 7184* 7374 10928 10930 10932 10935 10938 10941 
10943 10946 10950 seh 10955 10956 10959 10962 10966 10969 10972 10976 10979 


TST1 00 514 1525 
TST10 010752 1858 18764 
TST100 034576 6409 
TST101 034632 64184 
TST102 034754 64494 
TST103 035010 64584 
TST104 035132 64894 
TST105 035166 9 
TST106 035266 65254 
TSTi07 035322 65344 
TST11_ 011016 18894 
TST110 035422 65604 
TST111 035550 65934 
TST112 035670 66304 
TST113 035724 66424 
TST114 340 67264 
TST115 036374 67 
TST116 7004 

TST117 037632 69854 
TST12 011166 19374 
TST120 037666 69944 
TST121 040220 70 
TST122 040544 71824 
TST123 041074 

TST13) =—-011232 19524 
TST14 011276 19674 
TST15 11342 19814 
TST16 011530 20334 
TST17, = 0.11574 20504 
TST2 0 15734 
TST20 011640 20674 


ss. 
CZRJGCO,RPO4/5/6 DSKLS airy? MACY11 30A(1052) 27=JUL-78 12:41 PAGE 270 SEQ 0268 
C2RJGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0267 


011750 





J 5 
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CZRIGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0268 


bby 2 be 65274 65374 65634 65964 66324 67284  6739# 


10080 101574 
1515 1546 


101544 
101554 
15844 


5782 6705 6708 
6716 6810 101654 
7417 10946 
6171 6566*  6599* 
4982 6258 92614 
4979* 
8888* 8894* 8935s 8939* 89674 


C 
WRCHDT 002060 





CZRJGCO,RPO4/5/6 DSKLS rm 


CZRIGC.P11 26-JUL-78 1 
002056 
043344 
051072 
002110 


00 
050652 
004000 


000400 
052644 
051372 
000004 


$BELL 001216 
SCHARC 055152 
SCKSWR 055464 


s 
MACY11 30A(1052) 27=JUL-78 12:41 PAGE 272 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2601* 606 3205 3211* 


90344 
9494 
6168* 


8124* 
9498* 10928 


9811* 


8126 
10932 


8197* 
10938 


3270* 
86 


8198 
10943 


SEQ 0270 
SE 


Q 0269 


8908* 
10956 





Lo? 
CZRJGCO,RP04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL=78 12:41 PAGE 273 SEQ 0271 
CZRJGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0270 
SCMTAG 001100 1438 1445 1451 1452 
SCM 000006 5584 5594 5604 5614 5624 5634 
5594 5604 5614 5624 5634 


5654 5664 5674 5684 5694 
99734 


= 


2238 7380 9788 9818 9914 10020 10035 10047 10064 


73184 


9688 9690 9717 10022* 10047 
9712* 9717 


10031 10047 10928 10930 10932 10935 10938 10941 
10955 10956 10962 10966 10969 10972 10976 10979 


10028* 10047 
10043 10045 


2298* 
23 


8200* 8883*  8907* 8924» 
10928 10930 10932 10962 


9980 


10020 

7396 9714 6 

3101* 3295"  5705* 7395* 9710* 10042 
9709 9776 10036 

SMNEW 

SMSWR = 056254 





CZRJGCO,RPO4/5/6 DSKLS CTRLR1 


CZRJGC.P11 


SMXCNT 
SNULL 
SNWTST= 


SSWRMK= 
STIMES 


STKB 
STKCNT 


054510 
001154 
000001 


057202 
0 


aeeeen 
keetee 
057446 
054220 
000117 


000000 
177777 
054446 


000200 
167770 


000000 
001212 
001146 
055156 


26-JUL-78 10:10 


mM 5 
MACY11 30A(1052) 27=JUL-78 12:41 PAGE 274 
CROSS REFERENCE TABLE == USER SYMBOLS 


10104* 10115* 101414 
9687 9695 9705 97134 
3876 7295* 7297 7321* 7322s 
102014 
101664 10191 
101794 
9818 
10160 


10161 
10162 


9933 9958 9973 10017 10020 


10181* 10182* 102004 


1445 1447 1449 
10020 10039 10046 


1574* 1595* 1738* 
9829 9852 9 9893 
9858* 9941 


10047 


9673 
10020 


7279* 


SEQ 0272 
SEQ 0271 


6499 
7183 
9689 
10047 


9716 





N 5 
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CZRJGC.P11 26-JUL-78 10:10 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0272 


STKINT 055176 8561 98214 9834 
9866 99 


9866 9868* 
9948* 


9856* 


72794 


10152 
101544 101554 101564 101574 101584 101594 101604 101614 101624 101634 101644 10165# 


101524 
7290* 7319* 9668 9686 9708* 9713 9717 10024 10047 
9969 99734 


10153 
9801 
9817# 

10156 


98064 9807 9919 





B 6 
CZRJGCO,RPO04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 27-JUL-78 12:41 PAGE 276 SEQ 0274 
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SXTSTR 054252 


$$GET4= 000000 
SOFILL 057203 10095* 10105 101404 
S4OCAT= xxexeee 
. = 070252 5034 5 5254 5278 14124 14134 1441 
16554 16594 17054 
72874 7342 7346 
91 91884 91894 91914 91924 
9194 919 98214 9980 10020 10047 100904 
10199 110564 


- ABS. 070252 000 


ERRORS DETECTED: 0 
CZRJGC ,DSKW: CZRJGC . SEQ/SOL/NL : TOC :MC :ME : CND=SYSMAC..SML(400, 1066], CZRJGC.P110400, 1424] 
RUN-TIME: 37 42 2 SECONDS 


RUN-TIME RATIO: 469/82=5.6 
CORE USED: 38K (75 PAGES) 


DOCUMENT PAGES: 274 





